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EDITORIALE 



D a sempre l'uomo è in cerca di nuove esperienze. Quella dell'informati- 
ca è forse una delle più affascinanti. Ovviamente tale esperienza 
dev'essere affrontata nel modo giusto. 

Oggi tutti si sforzano di dare consigli su come muoversi neirapparentemen- 
te intricato mondo dei calcolatori. Non è necessario essere esperti matema- 
tici oppure piccoli geni per avvicinare la materia. 

Fortunatamente c’è chi, come sempre, pensa e provvede anche per chi 
non ha mezzi o capacità di fare in proprio. Ecco dunque spiegata la nascita 
di miriade dì pubblicazioni, la disponibilità di centinaia di programmi pronti 
all'uso e via dicendo. 

Forse il discorso è banale, ma provando a riflettere si constaterà come 
tutto ciò abbia contribuito in maniera determinante alla diffusione del 
personal e home computer. Si sa l'hardware senza il software non ha 
storia. Il problema, per V utente medio, è quello dì non fossilizzarsi solo 
perché c'è comunque qualcuno che ci pensa. La miglior polìtica è quella 
dì considerare tutto come un aiuto per imparare a far da sé. Solo in questo 
modo si potrà procedere, magari a piccoli passi, fino a padroneggiare in 
qualche modo la situazione. 

Ógni nuova scoperta deve servire da pretesto per cimentarsi; aspettare 
che la soluzione di un problema specifico arrivi dalle pagine di una rivista 
o dalla commercializzazione di un nuovo prodotto non è certo la strada giu- 
sta. 

L’attesa passiva non farà vivere l'esperienza con il computer nel modo cor- 
retto. 

Dunque sotto! Ogni riga di programma dev’essere uno spunto, la routine 
“wyz" deve servire a risolvere quel problema che vi assilla da giorni. 

La parola d'ordine è quindi ‘"fare" poi, per quelli che riescono meglio, c'è 
la possibilità di inviare i propri lavori in redazione per l'eventuale pubblica- 
zione sulla rivista che. oltre alla soddisfazione, può far guadagnare qualche 
lira. 

Pietro Dell’Orco 

$ 
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Per collaborare a SUPERCOMMODORE 


La rivista è interessata ad articoli e programmi riguardanti la linea Commodore, di interesse 
generale, chiari ed esaurienti. Vi proponiamo una piccola "guida”, che ha particolarmente lo 
scopo dì rendere più accurata la stesura dei vostri manoscritti: seguendo i nostri consigli si 
accresceranno le probabilità che le vostre buone idee e i vostri programmi vengano pubblicati. 


1 1’angolo superiore sinistro della prima pagina 
dovrà contenere: nome, cognome, indirizzo, 
numero telefonico, codice fiscale, data di spedi- 
zione, luogo e data di nascita. 

l'angolo superiore destro della prima pagina 
dovrà contenere la marca e il tipo dì compu- 
ter al quale il lavoro sì riferisce, unitamente ad 
eventuali espansioni di memoria o periferiche ri- 
chieste, 

3 il titolo deirarticolo, sottolineato, dovrà ini- 
ziare a circa due terzi in altezza della prima 
pagina, 

le pagine seguenti potranno essere battute 
normalmente, con la condizione che l’angolo 
superiore destro contenga un’abbreviazione del 
titolo e del cognome, unitamente al numero di 
pagina. Per esempio, Sprite Ed... /Brambilla/ 2. 
il testo dell’artìcolo dovrà essere battuto a 
macchina con interlinea dì uno spazio e mez- 
zo, massimo due spazi; un margine dì almeno un 
centimetro dovrà essere lasciato su entrambi i 
Iati dello scritto, 

6 dovranno essere usati fogli in formato UNI 
A4 (cm. 21 x 29,7} e il testo, scritto in carat- 
teri maiuscoli e minuscoli, dovrà occupare una 
sola facciata del foglio. 

7 ne! caso il testo comprenda più fogli, questi 
dovranno essere uniti con un fermaglio o con 
un punto metallico aperto, 

avendo intenzione di spedire più di un artico- 
lo, questi dovranno essere inviati separata- 
mente insieme alla rispettiva copia su supporto 
magnetico, 

9 programmi brevi (meno di 20 linee) potranno 
essere inseriti nel testo, mentre programmi 
più lunghi dovranno essere listati separatamente, 
E ESSENZIALE per noi disporre di una copia 
del programma registrata più volte su supporto 
magnetico, su entrambi i lati dello stesso, E prefe- 
ribile usare nastri di buona qualità e di lunghezza 
non eccessiva; la cassetta o il disco dovranno 
essere etichettati con il nome delTautore, il titolo 
deirarticolo, il computer interessato e soprat- 
tutto le eventuali espansioni richieste. Come sug- 


gerimenti di programmazione si consiglia di usa- 
re le istruzioni “CHR$( x )", "TAB{ x )”, SPC{ x 
r» piuttosto che stringhe di manipolazione del 
cursore. 

Ad esempio, per uno scroi l dì 5 linee I* istruzione 
“FORI - 1 TOS :PRINT : NEXT\ è molto più in- 
terpretabile di 5 Q inverse; e, invece di una dozzi- 
na di sìmboli di cursore a destra, perché non 
usare semplicemente "FRINT SPC (12)”? Un ra- 
pido controllo dei programmi per operare queste 
sostituzioni sarà molto apprezzato da noi e dai 
lettori. 

per maggior chiarezza, aH’interno dell ar- 
ticolo è conveniente usare caratteri maiu- 
scoli riferendosi a istruzioni BASIC (esempio RE- 
TURN, LIST, RND, PRINT eco.). Se si desidera 
evidenziare una parola, è preferìbile sottolinearla 
piuttosto che scriverla in carattere maiuscolo. 

n gli articoli ed i programmi potranno avere 
qualsiasi lunghezza; da una routine dì una 
sola linea fino a programmi molto complessi. 

volendo includere diapositive, queste do- 
vranno avere formato 24x36, o 6x6. 
non prenderemo in considerazione artìco- 
li che siano stati sottoposti ad altre case 

editrici, 

il materiale non pubblicato non verrà re- 
stituito. 

il compenso per la collaborazione presta- 
ta sarà commisurato alla complessità e 
all interesse del testo e/o del programma (da un 
minimo dì L. 50.000 a un massimo di L. 
300 . 000 ). 11 pagamento verrà effettuato in caso 
di pubblicazione del lavoro. 


Inviate idee e programmi a: 

SUPERCOMMODORE 
Viale Restelli, 5 
20124 Milano 

e saremo lietissimi di pubblicare i contri- 
buti migliori. 

La Redazione 
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Contatore del nastro e posizione 
dei programmi 

Speti Redazione . 

ho notato con dispiacere che suite cassef 
te allegate alla vostra rivista non compa- 
sono t numeri refatiut alla posizione del 
contanastro sui registratore per ogni pro- 
gramma registrato, ed inoltre che mo/fr 
nomi di programma sono diversi da quef- 
fi c he appaiono sull' etichetta della casset- 
ta. Fornendo il numero del confanosfro 
corrisponderne all'Inizio di ogni pro- 
gramma facilitereste dì molto la ricerca 
dei programmi più interessanti, non cre- 
dete? 

Franco Mltis 

R* Purtroppo esiste un certo numero di 
versioni del registratore Commodore, 
dalle più vecchie alle più nuove, ed 
ognuna dì queste è provvista di un c on- 
ta nastro che gira con velocità diversa 
dalle altre. Il pubblicare per ogni pro- 
gramma i valori dei contanastro rilevati 
su un nostro registratore favorirebbe 
esclusivamente I possessori della stessa 
versione di registra tore f mentre provo- 
cherebbe confusione in chi disponesse 
di altre versioni dello stesso o addirittu 
ra di registratori Commodore-compatl- 
bili od anche normali registratori porta- 
tili interfacciati al computer. 

I nomi dei programmi così come sono 
incisi sulla cassetta a volte non coincido- 
no con quelli presenti sull'etichetta del- 
la stessa, e dò per un motivo tecnico: i 
master da cui si ricavano le cassette 
vengono preparati, per minimizzare il 
rumore di fondo, su floppy disk. Occor- 
re quindi distinguere le versioni dei pro- 
grammi per C64 da quelle per V1C 20* 
dal momento che un singolo floppy disk 
non può contenere due programmi con 
lo stesso nome. Il sistema per scoprire 
subito i nomi attribuiti sulla cassetta è 
del resto molto semplice: digitante 
LOAD“** e premendo RETURN il com 
puter cercherà sul nastro un program 
ma di nome # (che naturalmente non 


esiste) e quindi passerà tutta la cassetta 
restituendo i nomi dei programmi con il 
messaggio FOUND. ... Si potrà approfit- 
tarne per segnare su un foglio la posizio- 
ne del contanastro ad ogni apparizione 
del messaggio FOUND, insieme al no- 
me corretto del programma. Sull’eti- 
chetta della cassetta, per non creare 
confusione, abbiamo ritenuto preferìbi- 
le riportare i nomi dei programmi così 
come appaiono negli articoli della rivi- 
sta. 


C64 europeo ed «nericano 

Spett Redazione . 

ho sentito dire che i C64 prodotti in 
Amenca non funzionano con la corrente 
italiana È sofo un problema di diverso 
voltaggio, oppure ci sono differenze nei 
computer? 

Ennio Di Stefano 

R* In realtà i computer Commodore - 
come del resto quasi tutti i computer — 
vengono prodotti in numerosi stabili 
menti sparsi per il mondo, e non solo 
negli Stati Uniti. Curiosando tra le eti 
cheti e appiccicate su un drive 1541 ci 
è capitato poco fa di trovare un “Made 
in Taiwan*.,, Del resto non ha una gran- 
de importanza dove un computer venga 
prodotto, ma che Siano rispettati nella 
produzione gli standard qualitativi im- 
posti dal progetto originario. E comun- 
que vero che i C64 prodotti per essere 
venduti sut mercato Nordamericano 
non funzionano in Europa, e ciò per due 
fondamentali motivi: la tensione elettri- 
ca standard negli U.S*A. è di 110 Volt 
contro i 220 Volt europei - fatto questo 
che sarebbe tuttavia facilmente aggira- 
bile con un opportuno trasformatore di 
tensione -, ma la frequenza di rete è in 
U S A. di 60 Hz contro i nostri 50 Hz. 
Tale differenza di frequenza richiede 
una taratura a livello hardware comple- 
tamente differente. 

Il secondo motivo è la differenza di stan- 


dard televisivo adottato (NTSC negli 
U.5.A, e PAL in Europa con l'esclusio- 
ne della Francia che adotta II SECAM) 
e quindi diversa regolazione del segnale 
in uscita dal computer verso il televiso 
re. 

Il C64 dispone di una locazione di me- 
moria che fornisce direttamente, con 
una PEEK, il tipo di versione della mac- 
china (NTSC o PAL). Questa locazione 
è la 678: se il risultato della PEEK è 0» 
il computer è tarato per l’NTSC, men 
tre se è I, il computer è tarato per il 
PAL 


I/Avveiito dei modem 

Spett. Redazione, 

ho tetto con molto interesse i vostri arti- 
coli su/ modem , e ne sono rimasto affa- 
scinato al punto da cercare dì acquistar- 
ne uno. Purtroppo non sono ri usato a 
reperirlo nè nella mia Città nè telefonan- 
do altrove. Potete consigliarmi su dove 
poterne reperire uno? 

Frincefco Di Salvo 

R. Il modem ò una periferica veramen- 
te in grado di aprire nuovi orizzonti a 
chi usi il computer per divertimento, 
hobby o lavoro, In Italia siamo appena 
alPlnizio della “rivoluzione informatica*, 
ed una concreta diffusione dei personal 
ed home computer è iniziata pratica- 
mente solo dall'inizio dello scorso anno. 
L’utilizzo di un modem per comunicare 
con altri computer o con centri di ìnfor 
inazione presuppone, com "è ovvio, la 
diffusione di altri computer dotati di 
questa periferica o l'esistenza di ne- 
twork sul tipo degli statunitensi “Com- 
puServe* o “Thp source". 

Occorre perciò attendere che si consu- 
mi questo “gap" rispetto agli U.S.A. e 
che inizi anche da noi La diffusione della 
pratica della telecomunicazione tra 
computer. Acquistare ora un modem è 
un po' come acquistare un'automobile 
prima che vengano costruite le strade 
sulle quali utilizzarla... 
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La piccola guida 
del principiante 


Cbc coi'* un programmi? 

El solo computer non può compiere alcuna operazione. 

Un compuler possiede potenzialità, ma, come una macchina 
senza benzina, senza un programma non può funzionare. 
La maggior parte dei programmi pubblicati su SUPER - 
COMMODORE per ì computer Commodore sono scritti in 
un linguaggio per calcolatori chiamato BASIC. Il BASIC è 
facile da imparare ed è disponibile, di serie, nel V1C 20 e 
nel Commodore 64, 

Programmi BASIC 

Ogni mese SUPERCGMMODORE pubblica programmi sìa 
per il VIC 20 che per il C64. Tanto per cominciare, se 
possiedi un VIC 20 copia solo i programmi scritti per la tua 
macchina, indicati con “versione per VIC 2G*. Più tardi, 
quando avrai acquisito esperienza con il BASIC del tuo com- 
puter, potrai cercare di copiare e convertire programmi 
scritti per altri calcolatori. Diversamente dal linguaggio cor 
rente, che può essere variamente interpretato, il BASIC di 
solito ha un solo modo corretto per indicare qualcosa. 

Ogni lettera, carattere o numero ha il suo significato. 

Un errore banale è costituito dalla sostituzione de) numero 
“ 0 * con la lettera “0" oppure il carattere minuscolo “I* 
invece del numero “1" o ancora U carattere maiuscolo “B* 
con il numero “8 n . 

Devi anche inserire tutta la punteggiatura, I due punti (:} e 
le virgole, copiando esattamente ciò che appare sulla rivista. 
Gli spazi possono essere importanti. Per essere sicuro copia 
il listato esattamente come si presenta. 

Le pere irte il e 1 caratteri speciali 

L'eccezione per questa regola di copiatura si presenta quan- 
do incontrerai indicazioni tra parentesi, quali: “{GIÙ}". 
Ogni cosa compresa tra parentesi è un carattere speciale 
oppure un carattere che non può essere facilmente prodotto 
con la stampante. Incontrando un carattere di questo tipo 
fai riferimento alla * Piccola guida per finput dei program 
mi". 

Le Istruzioni DATA 

Alcuni programmi contengono una sezione, o delle sezioni, 
di istruzioni DATA. Queste lìnee di istruzione forniscono le 
informazioni di cui il programma ha bisogno. 

In alcuni casi le istruzioni DATA costituiscono 1) programma 
vero e proprio, in altri contengono codici grafici. Queste 


linee sono particolarmente soggette agli errori. Se un solo 
numero in una linea di istruzione DATA è sbagliato, il calco- 
latore potrebbe “piantarsi’' o distruggere il programma. La 
tastiera e il tasto STOP appaiono inattivi e lo schermo com- 
pletamente vuoto. Non lasciarti prendere dal panico. Non 
si è verificato alcun danno. 

Per riprendere il controllo devi spegnere il computer e sue 
cessivamente riaccenderlo. Ciò cancellerà qualsiasi pro- 
gramma presente in memoria, per cui è sempre necessario 
fare il SA VE del tuo programma prima di comandare il 
RUN. 

Se il computer si ferma, puoi caricare {LOADÌ il programma 
e cercare Tenore, 

A volle, quando il programma viene “lanciato”, un'Istruzione 
DATA errata può causare un messaggio dì errore. 

Il messaggio di errore potrebbe riferirsi alla linea di program 
ma che legge fREAD) il contenuto delle istruzioni DATA. 

Come conoscere il computer 

Dovresti prendere confidenza con il computer prima di pro- 
cedere alla copiatura del programma. 

Impara le istruzioni che si usano per memorizzare e richia- 
mare f programmi da nastro o da disco. Dovrai conservare 
una copia del tuo programma, se non vorrai copiarlo ogni 
volta che lo devi usare. Impara ad usare le funzioni di “edi- 
ting” della tua macchina. Come puoi correggere un errore? 
Puoi sempre ricopiare la linea e in questo caso devi sapere 
come procedere. Sapresti come inserire ì caratteri in “inver- 
se”, i caratteri minuscoli e quelli dì controllo? 

Tutto ciò è spiegato nel manuale del calcolatore, 

Un veloce ripasso 

1} Copia il programma una linea alla volta, con ordine. 
Premi RETURN alla fine di ogni linea. Usa il tasto “DEL* 
per correggere gli errori. 

2) Confronta la lìnea copiata con quella presente nella rivi- 
sta, Puoi controllare Finterò programma nel caso in cui 
si presenti un errore quando esegui il RUN. 

3) Accertati di aver inserito le istruzioni tra parentesi graffe 
con gli appropriati caratteri di controllo {fai riferimento 
alla “Piccola guida per Tinput dei programmi” che trovi 
in questa stessa rivista). 

Siamo spiacenti di non poter rispondere singolarmente alle 
richieste di informazioni circa ì programmi, prodotti o servizi 
apparsi su SU PER GOMMO DORÈ. 
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ABC del Linguaggio macchina: p>i« P «t. 



di U, G* Barzaghi 


La serie dì articoli che Inizia con 
questo numero di "SlfPERCOM- 
M ODORE” rappresenta un, ape* 
riamo utile, complemento alla 
pubblicazione, sul numero della 
rivista di Gennaio, del program- 
ma SUPERMONITOR (cui, d ora 
in avanti, si farà riferimento co- 
me SM) per l'assemblaggio, la 
correzione e l'esecuzione di pro- 
grammi In linguaggio ASSEM- 
BLY, 


L o scopo di questi articoli è di illustra' 
re, attraverso una serie di esempi 
pratici e tramite l'uso di SM. le nozioni 
fondamentali della programmazione in 
linguaggio macchina, presumendo da 
parte del lettore una conoscenza mini- 
ma, o quasi nulla, dell’argomento. 

Ciò significa che. almeno per \ primi 
articoli, gli argomenti trattati saranno, 
ovviamente, rappresentati dai soliti eie 
menti di base della programmazione, co 
me la numerazione binarla, il compie 
mento a uno e a due o i vari formati di 
indirizzamento delle istruzioni In codice 
mnemonico. Preghiamo pertanto quei 
lettori che possono vantare già una co- 
noscenza un po' più approfondita della 
materia di avere la pazienza di attende 
re il momento in cui il nostro breve u cor 
so” avrà permesso anche agli altri letto- 
ri di compiere i primi passi verso una, 
speriamo, più approfondita compren- 
sione della programmazione In lìnguag 
gìo macchina. 

Cercheremo, per quanto ci sarà possibi- 
le, di usare un linguaggio semplice e 
chiaro e di illustrare ogni aspetto parti- 
colare deirargomento con il maggior 
numero di esempi, compatibilmente 
con lo spazio che la rivista potrà conce- 
dere a questa rubrica. In ogni articolo, 
inoltre, presenteremo un breve prò 
gramma o sottoprogramma in linguag- 
gio macchina, spiegandone lo scopo e 
le tecniche necessarie per la sua realiz- 
zazione e messa a punto, utilizzando 


sempre SM ed elencandone i comandi 
passo per passo. Cercheremo inoltre di 
fornire un panorama il piu possibile am- 
pio dei vari metodi che consentono di 
incorporare ì programmi o sottopro 
grammi in questione all'Interno dì un 
ambiente BASIC. 

Generalità 

Una grossolana schematizzazione di un 
qualsiasi calcolatore può portare alla 
sua descrizione in termini di STRUTTU- 
RA della macchina fisica e delia sequen- 
za di OPERAZIONI ELEMENTARI che 


Il calcolatore è in grado di svolgere. 
Tra i componenti che caratterizzano la 
struttura del calcolatore possiamo elen- 
care' 

I registri. Importanza particolare è ri- 
vestita dall 1 accumulai ore, destinato ad 
ospitare uno de^ due operandi di una 
operazione aritmetica o logica, e dal 
contatore di programma (in inglese Pro- 
gram Counter, spesso abbreviato in 
PC), che indica quale istruzione del prò 
gramma in linguaggio macchina debba 
essere eseguita. 

La memoria. Il suo scopo è duplice, 
deve contenere istruzioni da eseguire e 
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dati necessari alle istruzioni suddette, 

L 'baiti aritmetico - logica. Costi' 
tuisce uno degli aspetti caratterizzanti 
il funzion amento dei diversi micropro 
tesseri. Deve, comunque; essere gene 
Talmente in grado di svolgere, almeno, 
semplici operazioni aritmetiche, come 
la somma, la comptem e nt azione, ecc. e 
logiche, come il confronto. 

Ua’iUiità di controllo, TI suo compi 
to è di organizzare il lavoro del micro- 
processore, gestendo lo scambio di in- 
formazioni fra i vari registri che com- 
pongono il microprocessore e la memo 
ria od i collegamenti con le periferiche 
connesse al calcolatore. 

Spesso ci si riferisce all'insieme della 
unità aritmetico-logica (Anthmetical' 
Logicai Unit o ALU) e dell'unità di con- 
trollo (Control Unit o CU) con i] nome 
di CPU (iniziali di Central Processing 
Unit, unità centrale di elaborazione). 

Le operazioni o istruzioni elementari 
che il calcolatore è in grado di svolgere 
coinvolgono, ovviamente, gli oggetti so- 
pra descritti; una istruzione elementare 
è, ad esempio, rappresentata da 

CLA 

che azzera Tace emulatore, 0 dalla 
LDAS2800 

che trasferisce nell’accumulatore il con- 
tenuto del byte di memoria il cui indiriz- 
zo esadecimale viene specificato dal 
campo indirizzo dell’istruzione. 

Prima di cominciare a parlare dì istru- 
zioni in linguaggio ASSEMBLY e dì for' 
mati di indirizzamento vorremmo però 
accennare a qualche aspetto fondamene 
tate dei linguaggi di programmazione. 
In qualsiasi campo dell attività umana 
esiste, notoriamente, più dì un modo di 
illustrare un problema. Le varie lingue 
parlate e scritte del globo non sono che 
uno dei possibili metodi dì comunicazio- 
ne. Il disegno, la fotografia e, andando 
verso linguaggi più codificati, la rappre- 
sentazione geometrica di un oggetto o 
di una funzione o la trascrizione di un 
brano musicale sul pentagramma, rap- 
presentano tutti forme di comunicaziO' 
ne e schematizzazione di un problema 
o di una sequenza di operazioni 
Nei suoi rapporti con i calcolatori l’uo- 
mo si e trovato ad avere a che fare con 
un non trascurabile problema di collega- 
mento o, come suol dirsi, di interfaccia- 
mento tra il linguaggio ed il modo di 
pensare umani e l’insieme delle istruzio- 
ni elementari del calcolatore. 

Il linguaggio macchina, Punico diretta- 
mente eseguibile dal calcolatore, è ov- 


viamente nato per primo. Per risolvere 
i grossi problemi di programmazione 
che un simile linguaggio comportava, 
sia in termini di tempo di progettazione 
che di messa a punto, sono nati i vari 
linguaggi dì programmazione con istru 
zio ni più comprensibili all'uomo, o cO' 
munque più facili da ricordare; che defi- 
niscono le opportune istruzioni da im- 
partire al calcolatore. Questi linguaggi 
prendono il nome di "linguaggi ad alto 
livello". 

Esempi di linguaggio ad alto livello sono 
rappresentati dal FORTRAN, dal PA- 
SCAL, dal COBOL e, naturalmente, 
dal BASIC (benché le caratteristiche di 
questi ultimi siano decisamente meno 
sofisticate dei linguaggi più evoluti, co- 
me ì primi due o l'ultimo nato, l’ADA). 
Nei linguaggi di programmazione ad ai 
to livello le singole istruzioni corrispon- 
dono a diverse operazioni elementari 
del tipo comprensibile da parte del cal- 
colatore e precedentemente descritto. 
Ad esempio l'istruzione BASIC 

ALFA = 0 

corrisponde alla ricerca delta locazione 
corrispondente alla variabile ALFA, al 
caricamento del suo contenuto in accu- 
mulatore, al suo azzeramento tramite 
Punita aritmetico-logica ed al suo trasfe- 
rimento alla locazione di partenza. 

Dato che, come abbiamo già detto. 
Punico linguaggio direttamente esegui- 
bile da parte del calcolatore è rappre- 
sentato dalle suddette operazioni ele- 
mentari, si pone un problema di "con- 
versione” da una forma aiPaltra dì lin- 
guaggio di programmazione. Gli utenti 
del C64 sanno infatti che per poter ufi 
lizzare il loro calcolatore e sufficiente 
accenderlo e scrivere alcune righe di 
istruzioni BASIC, 

Il linguaggio BASIC fornito dal C64 è 
un linguaggio "interpretato". 

Parte della memoria ROM (Read Only 
Memory, memoria a sola lettura) del 
calcolatore contiene un programma in 
linguaggio macchina che si occupa di 
fare da "interprete 11 per il calcolatore 
delle istruzioni BASIC introdotte dal- 
l’utente; esattamente come farebbe eia 
scuno di noi, avendo a che fare con un 
individuo che parlasse una lingua per 
noi incomprensibile. Il problèma della 
interpretazione è rappresentato dal fat- 
to che essa avviene passo passo, e non 
una volta per tutte all’inizio del pro- 
gramma, esattamente come si svolge- 
rebbe la conversazione tra due persone 
che comunichino attraverso un interpre 
te 

L'" interpretazione" dei linguaggi ad al- 


ABC 

del linguaggio 
macchina 

to livello non rappresenta l'unica opzio- 
ne possibile. Esistono infatti esempi di 
linguaggi “compilati” (tutti i sistemi me- 
dio grandi presentano, ad esempio, 
queste caratteristiche). Tanto per con- 
servare il paragone, t compilatori rap 
presentano una sorta di "traduttori" a 
cui l’utente consegna il proprio pro- 
gramma in linguaggio ad alto livello per- 
che lo traducano, una volta per tutte, 
in linguaggio macchina, producendo, 
dopo un certo tempo, " codice oggetto”, 
che può essere "dato in pasto" al calco- 
latore perché lo esegua. Qualsiasi modi- 
fica venga apportata al programma de- 
ve però essere sottoposta da capo al- 
l’intera trafila: programmazione in lin- 
guaggio ad alto livello, compilazione ed 
esecuzione. 

Un linguaggio simbolico intermedio è 
] 'ASSEMBLY, che, pur non essendo an- 
cora vero e proprio linguaggio macchi 
na (consistendo non dì valori numerici, 
ma di codici mnemonici alfanumerici), 
si pone in corrispondenza biunivoca con 
le istruzioni in linguaggio macchina o, 
per essere piu chiari, ha una corrispon 
denza uno a uno con queste istruzioni. 
Programmare in linguaggio macchina si 
gnifica infatti stabilire il contenuto di 
ogni cella dì memoria ed il linguaggio 
ASSEMBLY consente infatti di operare 
sul contenuto della memoria e dei vari 
registri del microprocessore. Anche se 
non è forse possibile spingere oltre il 
paragone precedente, potremmo dire 
che utilizzare il linguaggio ASSEMBLY 
equivale a cominciare ad avere una co- 
noscenza elementare, ma precisa, delle 
forme grammaticali e sintattiche di una 
lingua straniera, come l'infarinatura 
d’inglese fornita dalla scuola media ita- 
liana, che non ci metterà forse in grado 
di comprendere le sfumature più sottili 
delie opere di Shakespeare, ma, sen- 
z’altro, almeno di chiedere uniforma- 
zione ad un passante. 

I fondamenti del linguaggio 
macchina 

I problemi che l'apprendimento del lin- 
guaggio macchina comporta vengono 
generalmente, a nostro parere, esage 
rati. Il nocciolo della questione è rap- 
presentato dalla necessità di apprende- 
re regole fondamentalmente diverse da 
quelle cui si è da tempo fatta l'abitudi- 
ne. Il linguaggio ASSEMBLY, infatti, 
non è particolarmente più complicato del 
BASIC, anche se senz’altro molto più 
critico per quanto riguarda la correzio- 
ne degli errori (ma per questo c’è SM!). 
In effetti tutti i pionieri dell'informatica 
hanno dovuto imparare a programmare 
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in linguaggio macchina prima che nei 
vari linguaggi ad alto livello e, cosa piut- 
tosto interessante, alcuni di essi incon- 
trano gii stessi problemi nella program- 
mazione dei linguaggi ad alto livello che 
l T utente medio deve affrontare per pro- 
grammare in linguaggio macchina. 
Sappiamo, per nostre esperienze, che 
Tiritera questione è rappresentata dalla 
difficoltà di affrontare un modo “mio- 
VQ*, diverso dal solito, di programmare; 
così come tutti coloro che affrontano 
per la prima volta un calcolatore devo- 
no confrontarsi con il diverso modo di 
pensare e di schematizzare una opera 
zinne proprio dei calcolatoti 
La prima cosa da apprendere per quan- 
to riguarda la programmazione in lin- 
guaggio macchina è il modo In cui ì cal- 
colatori “manipolano" Tin formazione 
Gli anlropologi sostengono che la razza 
umana ha sviluppato un sistema nume- 
rico decimale, poiché dispone dì dieci 
dita di cui sì è inizialmente servita per 
contare. Dato che un calcolatore, a cau- 
sa delle sue limitazioni, non dispone di 
dieci dita, bensì di una serie di stati elet 
trìd stabilì, è stato sviluppato per essi 
un sistema numerico differente. Nel ca- 
so più semplice, in cui gli stati in cui è 
possibile manipolare e registrare le in- 
formazioni sono solo due, il sistema 
prende il nome di “binario". 

Il modo più semplice di descrivere 
l’aspetto puramente elettrico della nu- 
merazione binaria può essere rappre 
sentato dal pensare ogni cella di cui la 
memoria è composta come colfegata ad 
uno dei due livelli fondamentali di ten- 
sione del calcolatore; la “massa" (0) o 
Ja tensione di alimentazione (1)- Ciò 1 non 
impedisce che ci possano essere livelli 
di tensione intermedia per altri scopi 
pratici. 

Un modo ancora più semplice {e non 
molto originale) di illustrare lo stesso 
concerto è di pensare ad ogni cifra bina- 
rla (in inglese bìnary digit, contratto in 
bit) come ad una lampadina, che sia 
uguale a zero, se spenta od a uno, se 
accesa. Oppure, sempre pensando a 
circuiti che operano in condizioni eslre 
me dì collegamento, come ad un inter- 
ruttore a due stati stabili: chiuso o aper- 
to. 

Per compiere operazioni aritmetiche o 
codificare gruppi di segnali è, ovvia- 
mente, necessario creare e definire una 
nuova, anche se In tutto e per tutto simi- 
le alla precedente, aritmetica, chiama- 
ta, naturalmente, aritmetica binaria. 
Nella rappresentazione dei numeri in 
qualsiasi base ed in particolare nella 
consueta base decimale — utilizziamo 
quella che si è soliti chiamare “notazio 
ne posizionale”, per fornire una rappre 
sentanone sintetica del numero stesso. 
In pratica, ciò significa che alia poslzio 
ne di ciascuna cifra all'interno di un nu- 
mero è attribuibile un ben preciso “pe 
so", diverso a seconda della posizione 
e, per lo meno per le cifre arabe, cre- 
scente da destra verso sinistra. Il peso 
In questione è rappresentato da una po- 


tenza della base stessa; così il numero 
5207, composto da quattro cifre deci- 
mali, rappresenta in effetti il valore nu- 
merico 

5 x IO 1 + 2 x IO 2 + Ox IO 1 + 7x10® 

Lo stesso discorso è valido anche per 1 
numeri frazionari: 


3,201 = 3 x 10° + 2 x 10 1 -t- Ox 10 2 
+ 1 x IO’ 3 


una volta esaurite le cifre arabe di cui 
ci serviamo abitualmente, è necessario 
introdurre dei simboli atti ad esprìmere 
i valori compresi tra 9 e B-l (essendo 
B la base, maggiore di dieci, prescel- 
ta). 

Nella base numerica maggiore dì dieci 
più diffusa in informatica (la base 16 
della numerazione e sud carnale) si è 
convenuto di utilizzare le prime sei lette- 
re dell* alfabeto per rappresentare le ol- 
ire da 10 a 15. Quindi la seguente nota- 
zione contenente lettere miste a nume- 
ri 



Passando dalla base decimale a qualsia- 
si altra base B, è necessario ricordare 
che le cifre di cui si dispone sono quelle 
da 0 a B- 1 (in corrispondenza dì B scat- 
ta una unità di grandezza immediata- 
mente superiore) e che il peso di ciascu- 
na è dato da una diversa potenza di B 
in base alla sua posizione. 

La più piccola base significativa è ovvia 
mente la base 2, in cui lo cifre possono 
assumere solo ì due valori 0 e 1 e le 
posizioni sono associate alle potenze 
(positive o negative) di 2. Ad esem 
pio: 


Bit 7. 6. 5, 4. 3. 2. L 0. 

3 0 0 1 0 1 0 1 

equivale a 

Ix 2 7 + 0x 2 6 + 0x 2 5 +lx2 4 + 0 
x 2 a + 1 x 2 2 + 0 x 2 l 4 1 x 2° 

cioè 

128+ 16 + 4+ 1 = 149 in base decima- 
le 

Potreste forse domandarvi come sìa 
possìbile rappresentare una base supe- 
riore a dieci e se esista un limite superio- 
re a questa rappresentazione. Un limi- 
te, ovviamente, non esiste, se non per 
questioni puramente pratiche. Per 
quanto riguarda la rappresentazione. 


1AGF 

in base e sa deci male significa 

1 x 16* + 10 x 16* + 0 X 16 1 + 15 X 
16* = 667 1 

La conversione dì qualunque numero 
intero N da una base B ad una base b 
può essere ottenuto ricorrendo a divi- 
sioni ripetute per la base b, operando 
però in base B. Tutto ciò potrà sembra 
re molto confuso; in realtà il semplice 
esempio che segue basterà a spiegarlo. 
Supponiamo di voler convertire il nume- 
ro 376 da base decimale a base binaria. 
Dovremo, innanzi tutto, calcolare il quo- 
ziente 376/2. Il risultato sarà rappre 
sentato da un numero N1>=0 (188) 
con un resto r0 per cui vale la seguente 
relazione 


0 < = r0 < b 


Ripetendo su NI la sequenza di opera- 
zioni precedentemente descritte si ot- 
terrà un quoziente N2 ed un resto ri, 
e così via, fino a che il quoziente non è 
uguale a zero, ponendo termine al pro- 
cedimento. Nel nostro caso La sequenza 
delle operazioni può essere riassunta 
dalla seguente tabella 


N 376 i i 

N/2 =N1 188 0 

N1/2-N2 94 0 

N2/2-N3 47 0 

N3/2=N4 23 1 

N4/2=N5 11 X 

N5/2=N6 5 1 

N6/2-N7 2 1 

N7/2=N8 1 0 

N8/2-N9 0 1 


La conversione in cifre binarie del nu- 
mero decimale 376 può essere ottenuta 
leggendo ordinatamente dal basso ver- 
so l'alto i resti delle singole divisioni; 
pertanto: 

376 10 = lOllli&Oj 

dove, con Ja scrittura precedente, si in 
dica l'equivalenza tra i valori numerici 
espressi nelle due basi {segnalate dal- 
T in di ce apposto a ciascun numero). 
Possiamo verificare il risultato con il 
metodo della serie di potenze: 
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10111100= 1*2’ + 0x2*+ Ix2 5 +U2 1 
+ 1X2* + lx2 2 + 0x2‘ +• 0x2° = 128 + 
32 + 16 + 8 + 4 = 188 

Come è possibile vedere, occorre un 
numero di cifre maggiore per rappre- 
sentare un numero quanto più piccola 
è la base in cui si intende rappresentar- 
lo. Per il numero del nostro esempio. 
188. sono state sufficienti otto cifre bi- 
narie. L’esempio non è stato scelto a 
caso; otto bit, infatti, è la lunghezza nor- 
male di una parola di memoria del 
microprocessore 6510, su cui si basa il 
C64, Con questo numera di bit è possi- 
bile rappresentare tutti i numeri interi 
compresi tra 0 e 255. In generale, di- 
sponendo di d cifre in base B è possibile 
rappresentare tutti i numeri interi com- 
presi tra 


0<-N<=B d -I 

Non ci addentreremo, per ora, nei 
meandri della rappresentazione dei nu 
meri frazionari o della rappresentazione 
normalizzata in virgola mobile, tramite 
esponente e mantissa. Affronteremo 
questi argomenti negli articoli successi 
vi; per il momento occupiamoci delle 
operazioni in numerazione binaria su 
numeri interi, utilizzando SM per scrìve- 
re e verificare qualche breve program- 
ma numerico in linguaggio ASSEMBLY 
che et consenta di velocizzare le opera- 
zioni di calcolo del nostro C64 


Operazioni su dati binari 

Le regole aritmetiche sui numeri binari 
non differiscono sostanzialmente da 
quelle per dati decimali e sono imme- 
diatamente ricavabili da esse. Som man 
do due bit otterremo: 

0 + 0 = 0 

0 + 1 = 1 

1 + 0 - 1 

1 + 1 = (1) 0 

dove (1) indica, ovviamente, un riporto 
(in inglese “carry") sulla cifra binaria più 
significativa (la scrittura 10, in base 
due, equivale infatti al numero decimale 
“ 2 "). 

Utilizziamo ora il nostro monitor per 
scrivere e provare un brevissimo pro- 
gramma in linguaggio ASSEMBLY che 
realizza la somma di due numeri a otto 
bit (quindi, come abbiamo visto, interi 
e minori o uguali a 255) In linguaggio 
macchina. Prenderemo confidenza, 
contemporaneamente, con le opzioni 
offerte da SM. 

Per poter realizzare il programma pre- 
fissato dobbiamo però conoscere un po' 


meglio il funzionamento dell' AL U del 
microprocessore 6510. L'unità aritme 
tìco- logica è caratterizzata dal fatto di 
disporre di due ingressi, contrariamente 
alla maggior parte dei registri che di- 
spongono di un solo ingresso tramite cui 
comunicare con il resto del calcolatore. 
La funzione dell'ALU consiste, ovvia- 
mente, nell'esecuzione di determinate 
operazioni aritmetiche e logiche sui dati 
che compaiono alle sue due porte di 
ingresso. Uno dei due ingressi dell'ALU 
è sempre rappresentato dall'accumula- 
tore, quindi nelle operazioni aritmetico 
logiche FALU assumerà automatica- 
mente come uno dei due operandi il 
contenuto dell'accumulatore, mentre 
un eventuale (esìstono infatti delle ope- 
razioni, che assumono il nome di “uria- 
rie" - come la c omp le me nt azione o 
cambiamento di segno —, che non pre- 
vedono un secondo operando) secondo 
operando si troverà in una locazione di 
memoria, il cui indirizzo verrà specifica- 
to da II' istruzione stessa, che chiama in 
causa l'unità aritmetico-logica. 

Il risultato di qualsiasi operazione che 
coinvolga t’ALU verrà depositato nel- 
l'accumulatore, Il suo utilizzo comporta 
un notevole risparmio di tempo, in 
quanto uno dei due ingressi non deve 
venire specificato, ma viene assunto 
automaticamente o, come suol dirsi, 
per “de fault". Ciò comporta pero Io 
svantaggio di dover costantemente cari- 
care e scaricare dati per e dall’accumu 
latore, prima e dopo ogni operazione. 
Per risolvere il nostro semplice probi e 
ma potremmo ricorrere allo schema se- 
guente: 

- Caricare in accumulatore II contenu- 
to della cella di indirizzo INDI 

- Sommare al contenuto dell'accumu- 
latore (tramite la ALU) il contenuto del- 
la cella di memoria dì indirizzo IND2 

- Trasferire il risultato, contenuto nel 
l'accumulatore, nella cella di memoria 
di indirizzo JND3 (supponendo di dover 
utilizzare il contenuto di INDI e JND2 
per successive operazioni). 

Questa sequenza di istruzioni prevede, 
ovviamente, che ogni volta che deside 
riamo operare la somma di due numeri 
dì otto bit il primo venga posto, in qual- 
cuno dei modi che vedremo, in corri- 
spondenza delPindlrizzo INDI ed il se- 
condo in IND2, mentre il risultato venga 
letto in IND3. 

I lettori più attenti avranno anche nota- 
to che il nostro programma non darà 
risultati in ogni caso corretti; infatti, se 
la somma dei due operandi è superiore 


a 255, il risultato non può essere conte- 
nuto in soli otto bit, ma necessita di un 
ulteriore bit, di riporto, A questo scopo 
all'ALU è collegato un registro, nella 
letteratura del 6510 generalmente indi- 
cato con P e chiamato “registro dei flag 
di stato" (status flag regi ster). Negli Sta- 
ti Uniti prendono il nome di "flag" le 
asticdoLe metalliche a forma di bandie- 
rina (flag significa appunto bandiera, in 
inglese) sulle cassette postali (ben note 
per la loro forma grazie ai cartoni ani- 
mati ed alle strisce di "Peanuts”), che 
“segnalano" la presenza di pacchi o let 
tere da ritirare. Lo scopo del registro 
dei flag di stato è appunto quello dì un 
semaforo, che consenta di rilevare o se 
gnalare situazioni particolari dello stato 
del microprocessore Vedremo di volta 
in volta, quando si presenterà l’occasio- 
ne. il significato di ciascuno degli otto 
bit del registro P. Per il momento è suffi- 
ciente dire che ciascuno di essi è fisica- 
mente realizzato tramite un "flip-flop" 
o " bis t a bile”. un dispositivo cioè con 
due soli stati del quale, inviando un im- 
pulso, è possibile far "commutare" lo 
stato, vale a dire "abbassare" la bandie- 
rina, se questa è "alzata” o "alzarla”, 
se è sollevata. Questo particolare regi- 
stro ci interessa nel nostro caso, in 
quanto il suo bit meno significativo 
(quello cioè di "minor peso"), nella posi- 
zione più a destra, è il bit che segnala 
ij riporto di una operazione dell'ALU. 
E quindi in questo registro, analizzando 
il bit Q t che dovremo cercare l'eventua- 
le riporto della nostra operazione di 
somma Perii momento, però, tralascie- 
remo di considerare anche il riporto, e 
la necessità di azzerarne il valore prima 
dì ogni operazione, per concentrarci sul 
meccanismo della nostra semplice ope- 
razione. 

Carichiamo, quindi, il programma ap- 
parso sullo scorso numero di “SUPER 
COMMODORE" ed attiviamolo tramite 
una istruzione SY549I52. Detto per in- 
ciso, questa istruzione manda in esecu- 
zione il programma in linguaggio mac- 
china che abbiamo caricato da nastro o 
da disco direttamente in memoria e che 
inizia in corrispondenza della locazione 
49152 

Vedremo comparire le righe seguenti: 

B* PC IRQ SR AC XR YR $P 
.; C04E C351 32 20 00 00 F6 

Nella prima riga vengono elencati i regi- 
stri del microprocessore e nella secon- 
da, al di sotto di ognuno, il contenuto 
attuale Da sinistra a destra essi sono: 
il "Program Co un ter” {che indica l'istru- 
zione corrente), il vettore delle interru- 
zioni (il cui significato affronteremo in 
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seguito}, il registro dei flag di staro 
(“Status Register"), l’ accumulatore, i 
registri ausiliari X e Y ed il puntatore 
alla pila ("Stack Pointer"); affronteremo 
dettagliatamente ciascuno degli ultimi 
tre quando se ne presenterà l'occasio- 
ne, 

II contenuto di ognuno è indicato, come 
probabilmente avrete intuito data la 
presenza di lettere miste a numeri, in 
formato esadecimale. Nello stesso for 
maio dovremo esprimere tutti gli indi 
rizzi utilizzati dalle nostre istruzioni As- 
se mbly, Si tratta, a questo punto, di 
stabilire quali locazioni utilizzare per im- 
magazzinare gli operandi ed il risultato 
del nostro semplice programma, oltre 
al linguaggio macchina corrispondente 
alle istruzioni che lo compongono. Con 
64 K byte a disposizione, naturalmente, 
non c'è che l'imbarazzo della scelta. 
Dovremo però fare attenzione a non in- 
terferire con eventuali programmi BA- 
SIC che utilizzino il nostro sottopro 
gramma In linguaggio macchina o con 
locazioni utilizzate dal calcolatore per 
scopi particolari (ad esempio, il control- 
lo della grafica o degli effetti sonori}. 
Per brevi sottoprogrammì in linguaggio 
macchina come il nostro, un gruppo d! 
locazioni molto comode è rappresenta 
to dal buffer del secondo registratore 
collegabile al calcolatore (nell'ipotesi, 
naturalmente, di non servirsene}. 
Questo gruppo di locazioni è compreso 
tra gls indirizzi decimali 828 e 1019, ed 
offre il vantaggio di non richiedere alcun 
tipo di operazione che coinvolga i pun 
latori alla memoria riservata al BASIC, 
per proteggere il programma in linguag 
gio ASSEMBLY dall'interferenza di 
eventuali programmi BASIC, 

Diciamo, quindi, che INDI corrisponde 
rà a 828, IND2 a 829. IND3 a 830 e 
che il codice macchina, che costituirà il 
nostro programma, sarà ospitato a par- 
tire dalla locazione 831 e richiamabile 
quindi con una istruzione SYS831. 
Come detto, però, a noi interessa cono- 
scere gli indirizzi e sa decima li corrispon- 
denti alle locazioni suddette. Un sistema 
consiste, naturalmente, nel calcolarsi 
con pazienza l'equivalente di ciascun 
valore desiderato tramite il metodo so- 
pra descritto. Un sistema più comodo è 
rappresentato da una delle opzioni di 
SM. Dopo il punto che compare sullo 
schermo digitiamo 

#828 

— il simbolo ' # ' contraddistingue i valo- 
ri numerici decimali, così come “$" gli 
esadccimali e premiamo RETURN; 
alla destra dei caratteri da noi inseriti 
vedremo apparire, da sinistra a destra, 
la conversione esadecimale del numero 
decimale indicato, t due caratteri ASCII 
la cui codifica corrisponde ai due byte 
che lo compongono e la sua conversio- 
ne binaria (sempre su sedici bit, cioè 
due byte). 

Una delle caratteristiche del linguaggio 
ASSEMBLY è rappresentata dal fatto 


che l'indirizzo della maggior parie delle 
istruzioni prevede l'impiego di due byte 
(quattro cifre esadecimaJi, cioè) e che il 
meno significativo dei due vada sempre 
premessa alla più significativa. 
Pertanto, per implementare la prima 
operazione del nostro programma, cioè 
il caricamento in accumulatore del con 
tenuto della cella dì indirizzo decimale 
828 fesa decimale 033C), dovremo inse- 
rire, dopo il codice operativo corrlspon 
dente all'istruzione “Carica in accumu 
latore" (codice mnemonico Assembly 
corrispondente LDA, cioè LoaD in Ac- 
cumulatori appunto), la codifica esade- 
cimale dell' Indirizzo corrispondente ad 
INDI . preceduta dal simbolo $ per indi- 
care la base utilizzata. 

Come detto, però, il calcolatore non 
ospita istruzioni in codice mnemonico, 
ma la corrispondente codifica sotto for- 
ma di coppie di Cifre esadeclmali. An 
che in questo caso esistono due strade 
possibili. La più noiosa consìste nelj'ar 
marsf di molta pazienza e scartabellare 



uno dei dizionari Assembìy, che i volumi 
citati nell'articolo precedente mettono 
generalmente a disposizione, conver- 
tendo manualmente ogni istruzione in 
codice mnemonico in un numero com- 
posto da due cifre esadecimalì. I proble- 
mi non si fermano qui, però. La maggior 
parte delle istruzioni in codice mnemo- 
nico, infatti, presenta più di una codifica 
(spesso quattro -cinque, fino a otto di- 
verse) in base al tipo di indirizzamento, 
un argomento che affronteremo sen'al 
tro nel prossimo articolo. 

La strada più semplice consiste quindi 
nel far svolgere il lavoro di conversione 
ad SM. Per farlo, di seguito al punto 
che appare all'inizio della riga, è neces- 
sario digitare la lettera A (“Assembler”) 
seguita dalla codifica esadecimale del 
l'Indirizzo a partire da cui si desidera 
inserire codice macchina. Dato che ab 
biamo deciso di far seguire il “testo" del 
nostro programma ASSEMBLY agli in- 


dirizzi che ospitano gli operandi ed il 
risultato, nel nostro caso l'Indirizzo sud- 
detto sarà 033 F (non è necessario spe- 
cificare che la base è esadecimale, tra 
mite il simbolo dal momento che 
l'indirizzo viene considerato esadecìma- 
le “per de fault"}. 

Di seguito digiteremo le tre lettere del- 
l'Istruzione in codice mnemonico (nel 
nostro caso LDA) seguite dall'Indirizzo 
del primo operando ($033C). Lo scher- 
mo avrà il seguente aspetto 

A 033F LDA $G33C 

Assicuriamoci di non aver commesso 
errori e premiamo RETURN. Lo scher- 
mo si trasformerà come segue 

,A 033 F AD 3C 03 LDA $033C 

inserendo tra l'indirizzo iniziale e l'istru- 
zione In codice mnemonico la codifica 
esadecimale di quest 'ultima, seguita 
dall'indirizzo dell’operando nel formato 
“byte - meno - significativo* / “byte 
più - significativo". 

Sulla riga successiva, dopo il solito pun- 
to, apparirà la lettera À seguita dall’in- 
dirizzo immediatamente successivo. Da- 
to che la prima istruzione ed il relativo 
indirizzo occupano tre byte, otterremo 

A 0342 

Possiamo ora inserire la nostra seconda 
istruzione [aggiungi all' accumulatore il 
contenuto di IND2), la cui trascrizione 
in codice mnemonico è 

A 0342 ADC $03 3D 

dove ADC (ADd to accumulator wlth 
Carry, cioè addizione con riporto) rap 
presenta la codifica dell'operazione vo- 
luta e $033 D l'indirizzo esadecimale 
corrispondente a IND2. Premendo RE- 
TURN il calcolatore inserirà la conver- 
sione in cifre esadecimalì dell'istruzione 
inserita 

A 0342 6D 3D 03 ADC $033D 

L'ultima istruzione della nostra breve 
“routine" in linguaggio macchina avrà 
lo scopo di trasferire il risultato del- 
I operazione precedente dall'accumula- 
tore alla locazione corrispondente ad 
IND3. In codice macchina questa ope 
razione viene svolta daH’istTUZìone STA 
(STore Accumulator in memory, regi- 
stra il contenuto dell 1 accumulatore al- 
l'indirizzo di memoria specificato). Sulla 
riga corrente di schermo comparirà 
quindi 

.A 0345 

e noi aggiungeremo 

A 0345 STA $033E 

Tra l'indirizzo dell'istruzione corrente 
ed il codice mnemonico il calcolatore 
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ABC 

del linguaggio 
macchina 



inserirà la t ras codifica dell "istruzione 

A 0345 8D 3E 03 STA $033E 

Il nostro programma può ritenersi, a 
questo punto, concluso. Per poterlo rh 
chiamare dall'interno di un programma 
BASIC, però, è necessario aggiungere 
un* ultima istruzione, equivalente alla 
istruzione BASIC RETURN, che deve 
chiudere ogni chiamata a sottaprogram- 
ma (GOSUB) per un corretto svolgi- 
mento dei programma BASIC, L'istru 
zione in questione si chiama semplice- 
mente RTS (ReTurn from Subroutine, 
rientro da sottoprogramma} e provoca 
il rientro in ambiente BASIC, 

Sulla riga corrente 

A 0348 

digiteremo quindi 
A 0348 RTS 
ed SM aggiungerà 
,A 0348 60 RTS 

Come potete notare, non è necessario 
specificare alcun argomento per l'Istru- 
zione, dal momento che Jìndirizzo di 
rientro del sotto programma è contenu- 
to nella pila {Stack) il cui elemento supe- 
riore è individuato dal registro apposito 
(5P, cioè Stack Pointer, puntatore alla 
ptla). 

Jl monitor vi offrirà di Inserire altre istru- 
zioni nella locazione immediatamente 
successiva 

,A 0349 

Premendo RETURN si uscirà dalla furi 
zione Assembler e si rientrerà sotto il 
Trompt" 


Premuriamoci, innanzi tutto, di registra 
re una copia del nostro sottoprogram 
ma. Per farlo è necessario specificare, 
oltre al nome ed alla periferica, l'indiriz- 
zo dì partenza e 1" indirizzo immediata 
mente seguente a quello conclusivo (va- 
le a dire l'indirizzo che compare sulla 
riga di Assembler al momento deirusci- 
ta dalla funzione) Utilizzeremo quindi il 
seguente comando 

,5 033F 0349 “ADDIZ. A 8 BIT” 08 

y dove 08 individua come periferica l’uni- 
tà dischi (tralasciando il numero della 
periferica, o specificando 01, si utilizze- 


rà l’unità nastro). Dopo che il calcolato 
re avrà portato a termine la registrazio- 
ne potremo chiedere di vedere la Dlrec 
tory del disco (nel caso in cui avessimo 
utilizzato questo tipo di registrazione), 
premendo 

.> 

seguito da RETURN. 

Possiamo ora “provare* il funzionamen- 
to del nostro breve sottoprogramma. 
Per farlo, naturalmente, è necessario 
innanzi tutto predisporre il contenuto 
delle locazioni 828 e 829, destinale ad 
ospitare i due operandi della nostra 
operazione. Non è necessario uscire da 
SM per veder funzionare il nostro pro- 
gramma ed il monitor ci permetterà 
inoltre di disporre di alcune funzioni 
che. soprattutto per lo sviluppo di pro- 
grammi più complicati, si riveleranno 
preziose. 

Cominciamo con l'utilizzare la funzione 
Memory display, in modo da “vedere” 
le locazioni in questione. Per farlo è suf 
fidente digitare il comando M seguito 
dairindirizzo esadecimale della prima 
locazione che si desidera eia m ina re . Il 
calcolatore mostrerà anche li contenuto 
delle sette locazioni seguenti 

M 033C CO 4E 32 AD 3C 03 6D 3D 

Nell'istruzione precedente 033 C corri- 
sponde alla codifica esadecimale dell' in 
dirizzo della locazione 828, il cui conte- 
nuto attuale è pari a CO In esadecimale 
(cioè 12 x 16 + 0 x 1 = 192 In decima- 
le). La stessa funzione ci permette di 
vedere che la locazione 829 (corrlspon 
dente ad IND2) “vale” attualmente 4E 
e la 830, sempre in e sa decimale, 32. 

[J quarto byte mostrato dalla stessa fun 
zione corrisponde all" indirizzo 83], a 
partire dal quale abbiamo immagazzina- 
to il M lesto” del nostro breve sottopro- 
gramma; infatti, la codifica deila prima 
Istruzione e di parte della seconda è 
contenuta negli ultimi cinque byte mo- 
strati dalla riga precedente. 

La stessa funzione cì consente anche di 
modificare il contenuto delle locazioni. 
Spostiamo il cursore sulla riga prece- 
dente, tramite ì tasti dì controllo del cur- 
sore CRSR (contrassegnati dalle frecce 
e posti alla destra della riga inferiore 
della tastiera), e modifichiamo i due pri- 
mi byte come segue 

M 033C AA I B 32 AD 3C 03 6D 3D 

Per far sì che i due numeri esadecimali 
che abbiamo sovrapposto a quelli con- 
tenuti nelle due locazioni suddette ven- 
gano effettivamente inseriti in memoria 


è necessario premere RETURN. 13 mo- 
nitor vi offrirà di visualizzare gli otto 
byte successivi, mostrando, sulla riga 
seguente, l'istruzione 

:33C 

È sufficiente premere RETURN per 
uscire dalla funzione e vedersi ripropor- 
re il consueto “prompt*. 

Potreste chiedervi qual è il valore delle 
due cifre esadecimali inserite nelle loca- 
zioni di memoria destinate a contenere 
gli operandi. SM dispone di una comoda 
funzione di conversione esadecimale 
(analoga a quella già vista per la conver- 
sione decimale}. Per attivarla è suffi- 
ciente inserire le quattro cifre esadeci- 
mali che si desidera convertire precedu- 
te dal simbolo "$’. Alla pressione del 
tasto RETURN compariranno sulla stes- 
sa riga, a fianco dei caratteri digitati, la 
conversione decimale, i simboli ASCII 
corrispondenti e la codifica binarla del 
numero esadecimale desiderato. 

Ad esempio, battendo 

.$ 00ÀA 

si otterrà il valore decimale corrispon- 
dente, pari a 10 X 16 + 10 = 170. 
N,B, - SM accetta solo numeri esadeci- 
mali di quattro cifre: per convertire nu- 
meri aventi un numero di cifre inferiore 
è necessario premettere degli zeri non 
significativi fino a raggiungere quattro 
cifre Non è necessario convertire nu- 
meri esadecimali di più di quattro cifre, 
in quanto nessun indirizzo del micropro- 
cessore supera i quattro byte di lun- 
ghezza e le sue istruzioni non ammetto- 
no operandi di più dudue byte. 
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Piccola guida per 
l’input 
dei prograi 


flit! 


M olti dei programmi listati da SUPERCOMMO* 
DORÈ contengono particolari caratteri di control* 
lo (controllo cursore, tasti colore, vide ^inverse, ecc.). 
Per rendere chiaro ciò che dev'essere battuto quando 
è necessario inserire uno dei suddetti caratteri sono 
state stabilite le seguenti convenzioni. 

Generalmente i listati per VIC 20 e €64 contengono delle 
«parole» racchiuse tra parentesi graffe ( }; tali parale 
rappresentano particolari caratteri di controllo: ! GIÙj 
significa premere il simbolo del cursore verso il basso. 1 5 
SPAZI [ vuol dire battere 5 volte la barra-spazio. 

Per indicare che un tasto dev'essere «shiftato», cioè 
premuto insieme al tasto SHIFT, nel listato il simbolo 
di questo tasto sarà sottolineato. 

Per esempio S significa che dev'essere premuto il tasto 
S mentre è abbassato il tasto SHIPT. 

La manovra farà apparire sullo schermo un piccolo 
«cuore». 

Trovando un sìmbolo sottolineato chiuso tra parentesi 
graffe (esempio j 10 N }) dovrà essere interpretato co- 
me «premere il carattere indicato per il numero dì volte 
che lo precede nelle parentesi»: nel nostro esempio 
premere 10 volte il tasto N «shiftato*. 

Se il tasto da premere è indicato tra le parentesi [ ()]♦ 
vuol dire che lo stesso dovrà essere premuto mentre 
è premuto il tasto «Commodore» (il tasto «Commodo* 
re» è quello posto nell'angolo in basso a sinistra). 

Se il tasto scrìtto tra [ ( }] è preceduto da un numero, 
ciò significa che il tasto dev'essere premuto per il nu- 
mero di volte indicato. 


Raramente si potrà trovare un carattere alfabetico soli- 
tario racchiuso tra parentesi graffe. Tale carattere sul 
C64 può essere battuto mentre è premuto il tasto 
CTRL. 

Ad esempio jA[ sta ad indicare la sequenza CTRL-A. 
A proposito del «modo virgolette» è nota la possibilità 
di muovere il cursore sullo schermo con i tasti CRSR. 
Ogni tanto i programmatori desiderano muovere il cur- 
sore durante l'esecuzione del programma. È per que- 
sto motivo che nei programmi si troveranno dei j SIN j. 
[HOME} e |BLUj. 

L'unico modo perché il calcolatore distingua il coman- 
do diretto da quello inserito nel programma è il «modo 
virgolette». Premendo il tasto «virgolette» (tasti SHIFT 
2) il calcolatore si predispone appunto in «modo virgo- 
lette*. 

Battendo un carattere qualsiasi, cercando poi di cor- 
reggerlo muovendo il cursore, si otterrà solo un trat- 
to verticale in un quadratino inverso. Questo è infat- 
ti il sìmbolo dei cursore a sinistra nel «modo virgolette». 
L'unico comando dì editing non utilizzabile aU'irttemo 
di un programma è il DEL. Battendo nuovamente le 
«virgolette* il calcolatore lascia il «modo virgolette». Si 
può accedere al «modo virgolette* quando inserite spa- 
zi nella linea. 

In ogni caso, il sistema più semplice per .uscire dal 
«modo virgolette* è quello dì premere il tasto RE- 
TURN. 

Utilizzare La tabella che segue quando è necessario 
inserire comandi relativi al cursore e ai tasti colore. 


Quando leggete: 

Premete: Vedrete: 

Quando leggete: 

Premete: 

Vedrete: 

Quando leggete: 

Premete: 

Vedrete: 

( CLR } 

IMI! 

□ 

(CYN) 

isao 

m 

[<7>] 

□ Il 

□ 

(HOME) 


m 

{PUR} 

ITTI Q 

m 

r<8>] 

□ □ 

* ■ 
■ m 

(su} 

PT^Tl IlIJHlil 

□ 

[CRN ] 

m □ 

□ 

(FI) 

m 

5 

[GIU ’ ] 

GELH 

E 

{BLU} 

gei a 

Q 

(F2) 

ES 

a 

[sm] 

pira ama 

II 

{YEL} 

Km n 

ss 

(F3 } 


■ 

(DBS) 


n 

I<1>] 

sa 

□ 

{ F 4| 

m 

IS 

( RVS } 

OHI O 

a 

[<2>] 

sa 

PS 

|F5} 

IE 

li 

{OFF] 

GEI □ 

■ 

f<3>] 

CEO 


1F61 

C£3 

i 

(BLK) 

Gian 

■ 

[<4>] 

130 

m 

{F7} 

re 

il 

{ WHT } 

f Q 

m 

t<5>] 

E30 

E 

i FB } 

OH 

■ 

{RED} 

GEI Q 

E 

f<6>] 

HO 

■1 
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Il primo settimanale di software 
su carta per il tuo personal computer, 
Un appuntamento al quale non puoi 
mancare ogni venerdì in edicola. 
Nato in edizione unica, per i più 
diffusi home e personal 
computer, dal 1 Aprile, ZZI 

allo stesso prezzo, saranno 

in edicola le versioni dedicate — J 

ai prodotti Sinclair (ZX8I, /Vg 

ZX Spectrum e GL) e ai / Y5 

prodotti Commodore (VIC20, f F 

C16 e C64). [ fa 

In più un'edizione esclusiva \ \ 

per gli utenti dei personal \ 
Apple, gli home computer \ 

Texas e i nuovissimi sistemi MSX. 
Una grossa novità: la possibilità jj 
di abbonarsi dal 1 Aprile 1985 
al 31 Dicembre 1985 per ricevere 
38 numeri del settimanale 
comodamente a casa con un 
notevole risparmio. Chi sì abbona 
riceverà ogni 15 giorni 2 numeri 


di PAPERSo/f 
in anticipo rispetto 
all'uscita in edicola. 
Non perdere questa 
occasione! 

Compila subito 
il coupon qui 
riportato e spediscilo 
a: 

J.soit 

V.le Restelli, 5 
20124 MILANO 


Togli ondo abbonamento a PapefSoftda inviare in butta cliiuio o: 

J sott - V le Cestelli, 5 - 20124 MILANO 

□ Abbonamento a 38 numeri dì Pq perSo** ol prenci Speciale di 1. 30.000 anziché L. 38.000 

□ edizione Sinclair |P501) □ edizione Commodore (PCQlj □ «dizione Appl«/T|99/MSX (PV0JJ 

D contenti allegati □ assegno ol legato li. 

D ha versata limporto sul cc.p, n, 19445204 infettato a J.icfl - MILANO 

Cognome Nome _ 

Via . Città - 

CAP Prov. Data 
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MLX per VIC 20 •» c. 

_ trac, e adatt 

A Ì^£L / 1 . _ * di RI. CHotnib GHzil 

6 VVnr (versione 2.0 per C64) e f. steli. 


LX è un programma che permette 
di inserire listali In linguaggio mac 
china esenti in modo assoluto da errori e 
senza la perdita di tempo del dover batte* 
re e controllare lunghe sequenze di istni 
zioni DATA 

Molti dei nostri listati di programmi in 
linguaggio macchina hanno il formato 
MLX (li riconoscete dal fatto che sono 
esclusivamente numerici) e richiedono 
quindi che MLX sìa caricato In memoria 
ed eseguito prima della battitura del lista- 
to. 

MLX vi chiederà l’Indirizzo della locazio- 
ne di partenza e quello della locazione 
finale del programma da caricare. Questi 
valori sono sempre indicati nell’articolo 
che accompagna il listato. MLX vi segna 
la automaticamente gli errori di battitura 
MENTRE STATE DIGITANDO IL LI- 
STATO e vi chiede di reinserire la linea 
errata. L'ultimo numero battuto di ogni 
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linea rappresenta il checksum e viene vi- 
sualizzato in re verse. 

Sono inoltre disponibili altri comandi, quali 
5HIFT-N nuovo indirizzo: permette dì 
cambiare TindlTizzo della linea che volete 
battere ed è utile nel caso si inseriscano 
i listati in più parti. 

SHIFT-D display: lista ì dati inseriti tra 
due indirizzi dì inizio e fine. 

SHIFT-L Ioad: carica un file da nastro o 
SHIFT-S save; salva su nastro o disco un 
file in formato MLX. 

Una volta battuto il listato* e salvatolo 
tramite MLX* si potrà caricare difetto- 
mente il programma con un’istruzione 
LO AD “nome del fileni* 1 per il registra- 
tore, oppure LO AD “nome del file\8*l 
per l'unità a dischi, salvo diverse indica- 
zioni date negli articoli corrispondenti ai 
vari programmi. Il programma sarà gene- 
ralmente mandato in esecuzione con una 
SYS (indirizzo di partenza). 


La versione originaria di MLX per C64 
ha subito, dalla prima pubblicazione, di 
versi ritocchi e miglioramenti, fino alia 
versione 2.0 qui presentata. 

È stato m primo luogo modificato il colore 
di fondo dello schermo e del bordo* in 
modo da risultare meno stancante alla 
vista; sono state ulteriormente perfezio- 
nate le routine in linguaggio macchina di 
salvataggio e caricamento dei program- 
mi; è cambiata la forma del cursore e. 
cosa più importante* è stato aggiunto un 
tastlerino numerico per gli utenti che si 
trovano più a loro agio con una diversa 
disposizione dei tasti. 

Oltre a poter usare l soliti tasti numerici, 
sono stati ridefinìti alcuni tasti alfabetici* 
in modo da generare ugualmente dei nu- 
meri. 1 tasti ridefiniti sono i seguenti: 

U! 0 789 

H J K L diventano 0 4 5 6 

M, * 12 3 

Le persone abituate ad usare tali tastieri- 
ni accresceranno senz'altro, in brevissimo 
tempo* la velocità dì battitura dei pro- 
grammi in linguaggio macchina. 


1 00 PRINT" {CLBl {PUR}" ;CHR${1 42) ;CHRS (8) ; 

;rem lèi 

101 POKE788,! 94: REM DISABILITA RON/5TOF 

s r em 14 4 

ITO FRI NT" { RVS } { 14 SPAZI} 1 ’ :rem 117 

120 PRINT" { RVS I (DES} {OFF} [<*>1 £{RVS} 

{DES} (DES}{ 2 SPAZI} [<*>] {OFF} [<*>} 

_£ { RVS } £ | RVS } 11 :rem 191 

130 PRINT n lRVSÌ [DES) [<G>J(DE5} 

{ 2 DES) (OFF } £1 {RVS }j£ f < * > ] [OFF] [<*>] 
[RVS} {OFF}" :rem 122 

140 PRINT" {RVS] { 14 SPAZI}" :rem 120 

200 PR I NT" { 2 GIU 1 ) {PUR} {BLKjON PROGRAMMA 
PER L 1 TN-TRODUZ10NE{ 2 SPAZI }DI ROUT 
INE IN LINGUAGGIO MACCHINA" ; :rem 202 
205 FRI NT" A PROVA DI ERRORE { 5 GIU 1 1 " 

:rem 2 26 

210 PRINT" 1 BLK } { 4 SUJINDIRI2ZO DI PARTEN 
ZA" : INPUTS : F»l - F : C$^CHR$ (31 +1 Ì9*F) 

:rem 52 

220 IFS< 2 S6QRS > 32 7 67THENGOSUB3000 ; GOTO 2 1 0 

;rem 2 

225 PRINT: PRINT: PRINT: PRINT riera 123 

230 PRINT" {BLK}{ 3 SU } INDIRIZZO CONCLUSI V 
O” :INPUTE:F=1 -F:C$»CHH$ (31+1 1 9*F) 

! rem 170 

240 I FE< 2 5 60RE> 3276 7THENGOSUB30 0 0 : GOTO 2 3 0 

:rem 234 

250 IFE<STHENPRINTC$; 11 {RVS} INDIRIZZO CONC 
LUSIVO < INDIRIZZO DI PARTENZA 
{ 3 GIU 1 } " ; GOSUFÌ 000 ; GOTO230 : rem 27 

260 PRINT^ PRINT: FRI NT riera 179 

300 PRINT" {CLR}";CHR$ (1 4) :AD=S :rem 56 

310 FRI NTRIGHT5 ("0000" +MID? (STR? CAD ) f 2) , 5 
: POR J * 1 TO 6 :rem 234 

320 COSO B 5 70; IFN = - 1 THENJ s J+N:GQT032G 

riera 228 

390 I FN*- 21 T THEN71 0 :rem 62 

400 I FN=- 204THEN790 riera 64 

410 IFN--2Q6THENPRINT: PRINT" {GIU* ÌINSERIS 
CI UN NUOVO { 4 SPAZI {INDIRIZZO" ; : INPU 
TZZ ; rem 42 


41 5 I FN=- 2 Q6THENI FZZ< 50RZZ >ETHENPRINT M 
{RVS } ESCE DAL CAMPO DI VA-" riera 150 

416 IFN--206THENIFZZ<SORZZ>ETHENPRINT M 
{RVS}LORI INDICATO" tGOSUBl OOQ:GOT04l 0 

riera 105 

417 IFN=- 206THENAD=ZZ : PRINT : GOTO 31 0 

riera 238 

420 IFNO-1 96THEN4SQ riera 133 

430 PRi NT ; INPUT" LI STATO : DA" ; F : PRINT , " 

{ 2 SIN} A" ; : INPUTT riera 29 

440 IFF<SORF>EORT<SORT>ETHENPRINT"MINIMO" 
;S;"{SIN]> MASSIMO" ;E:GOT043G ~ 

riera 36 

450 FORI =FT0TSTEF6 : PRINT; PRINTRIGHT$ ( " 000 
0 H +MID$ (STR$ (I) , 2 ) #5);";"; :rem 30 

455 FO RK " OTO 5 : N - PEEK ( I +K) : I F K* 3THENPRI NTS 
PC (1 0) j riera 34 

457 PRINTRIGHT$ ("00"+MID$ (STBS (N) ,2) # 3) f" 
/"? srem 157 

460 GETAS : I FA$>" "THENPRI NT : PRINT : G0T031 0 

srem 25 


470 NEXTK: PRINTCHR9 (20) ; : NEXTI : PRINT: FRI N 



T: GOTO 3 1 0 

; rem 

50 

480 

IFN< OtHENPRI NT : G0T03 1 0 

: rem 

1 68 

490 

A ( J ) =N : NEXTJ 

: rem 

199 

500 

CKSUM=AD-INT (AD/256) *256: 

F0R1=TTQ6:CK 


SUM=(CKSUM+A(I) ) AND25 5 : NEXT riera 

200 

51 0 

FRINTCHR$ (18); : GOSU B57 0 : FRI NTCHR$ (20) 



;rem 

234 

515 

IFN=CKSUMTHEN530 

riera 

2 55 

520 

PRINT: FRI NT" LA RIGA E 1 STATA INSE- 

-RIT 


A IN MANIERA ERRATA" 

sreia 

39 

525 

PRI NT"RI- INSERIRLA": PRINT 

S GQSDB? 000 : G 


OT031O 

i rem 

1 67 

530 

GOSUB2000 

: rem 

21 8 

540 

FORI E 1 T06 : POKEAD+I* 1 , A(I) 

:NEXT 




: rem 

80 

550 

AD =AD + 6:1 F AD< ETHEN 3 1 0 

: rem 

212 

560 

GOTO 71 0 

srera 

108 

570 

N=0 : Z= 0 

: rem 

88 
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580 

PRINT” {<+>) " ; 

: rem 

79 

581 

GETAS : IFA$^”"THEN581 

:rem 

95 

585 

PRINTCHRS (20) ; ; A=ASC(A$) :IFA*1 30RA=44 


ORA-32THEN670 

:rem 

229 

590 

IFA>1 28THENN=- A: RETURN 

: rem 

137 

600 

IFA020THEN630 

: rem 

10 

610 

GOSUB690 : 1 F I - 1 ANDT= 4 4THENN-- 

1 ; PRINT" 


{SIN} {SIN}"; :GOTO690 

; rem 

1 72 

620 

GOTO 570 

; rem 

109 

630 

I FA< 480RA> 57THEN 580 

: rem 

105 

640 

PRINTA8; : N=N*1 0+A- 4 B 

: rem 

106 

650 

I FN> 255THENA = 2G : GOSOBl 000 ; GOTO600 



; rem 

229 

660 

Z^Z + Ì : IFZ< 3THEN580 

: rem 

71 

670 

I F Z = OTHENGOSUBl 0 0 0 : GOTO 5 70 

:rem 

114 

680 

PRINT" , " ; : RETURN 

treni 

240 

690 

S%=PEEK(209)+256*PEEK(21 OJ+PEEK (21 1 ) 



: rem 

149 

692 

FORI * 1 TO 3 ; T= PEEK ( S % - 1 ) 

; rem 

68 

695 

IFT< > 4 4ANDT< >58THENPOKES 1- 1 , 

32 : NEXT 



:rem 

205 

700 

PRINTLEPTS (” { 3 SIN}”, 1-1) 

RETURN 



; rem 

7 

71 0 

PRINT" {CLR} {RVS}*** SAVE *** 
{ 3 GIU 1 }" 

i rem 

236 

720 

INPUT" {GIU 1 } NOME DEL FILE"; 

FS 




: rem 

1 99 

730 

PRINT: PRINT" { 2 GIU 1 }{ RVS ] N [OFF ) ASTRO 


O ( RVS } D [OF F } I SCO : (N/D)" 

:rem 

128 

740 

GETAS; I FAS < > " N " AND A$ < > “D ” TH EN 7 4 0 




:reirt 

30 

7 50 

DV»1-7*(AS>"D") : IFDV-8THENFS 

»"0:" 

+FS 



:rem 

1 58 

760 

TS-FS 1 ZR = PEEK £53} +256*FEEK £ 54 ) - LEN (T$ 


} :POKE782,ZK/256 

: rem 

3 

762 

POKE781 , ZK- PEEK (782) *256 ;FOKE7BQ, 

LEN { 


T$) : SYS6 5469 

: rem 

109 

763 

POKE780 , ì : POKE7B1 r DV:POKE?82 

,1 : SYS6 54 


66 

: rem 

69 

765 

PO KE2 54, S/256: POKE253 , S- PEEK ( 254 ) 

*256 


: POKE760 ,253 

:rem 

ì 2 

766 

PO KE7 8 2 , E/ 2 5 6 : PO KE7 8 1 , E- PEEK ( 78 2 ) * 25 6 


; SYS65496 

: rem 

1 24 

770 

IF (PEEK £783) AND 1 ) OR(5T AND 1 9 1 ) THEN780 


:rem 111 


775 PRINT" {GIU 1 } OPERAZIONE CONCLUSA END 

:rem 152 

780 PRINT” {GIU 1 } ERRORE DI REGI STRAZIO- NE , 
RIPROVA « " : IFDV=*1 THEN720 ;rem 8 


781 

OPENl 5,8,15: INPUT# 1 5 ,El $ 

, E2$ : PRINTEl S 


; E 2$ : C LOSE 1 5 : GOTO 7 20 

:rem 

103 

782 

GOTO720 

: rem 

115 

790 

PRINT" {CLR } t RVS } ** * LOAD 

# * * 



{ 2 GIU * }" 

: rem 

212 

800 

INPUT" ( 2 GIU 1 } NOME DEL 

FILE" ;F$ 




: rem 

.21 5 


810 PRINT: PRINT" ( 2 GIU 1 }{ RVS)N (OFF ) ASTRO 
0 ( R VS } D {OFF } I SCO : (N/D)" :rem 127 

82 0 GETAS : 1 FAS < > " N" ANDAS< > " D " THEN 8 2 0 

ircm 28 

830 DV=1 -7* { A$* "D” ) ; IFDV= BTHENFS*" 0 : " +F$ 

:rem 157 

840 TS*F$:ZK=PEEK(53)+256*PEEK (54) -LEN(T$ 

) :POKE782,ZK/2 56 : rem 2 

841 POKE781 f ZK-PEEK(7B2)*256:POKE780 f LEN ( 

T$) ; SYS6546 9 :rem 107 

845 POKE780 , 1 :POKE781 ,DV: POKE782J :5YS6S4 
66 : rem 70 

850 PGKE780,0;SYS65493 : rem 11 

860 IF ( PEEK (783) AND 1 ) OR (ST AND! 91 ) THEN 8 70 

; rem 111 

86 5 PRINT" {GIU' JOPERAZIONE CONCLUSA . " : GOT 
0310 : rem 142 

870 PRINT" (GIU 1 } ERRORE DI CARICAMENTO -RI P 
ROVA * {GIU 1 } " : I FDV=1 THEN 80 Q ;rem “43 
8 80 OPEN 1 5,8,1 5 ; INPUT* 1 5 ,El $ , E2$ : PRINTEl $ 
; E2$ : CLQSE? 5 : GOTO 800 :rem 102 

1000 REM CICALINO ;rem 231 

100Ì POKE36878 ,15: POKE36874 ,190 :rem 206 
1002 FORW^I TQ3Q0 : NEXTW :rem 117 

1 003 PGKE368 78 , 0 : PQKE368 74 , 0 : RETURN 

: rem 74 

2000 REM CAMPANELLO :rem 130 

2001 FORW=l STOOSTEP^l : POKE3687 8 , W: PGKE36 8 

76, 240; NEXTW :rem 22 

2002 PO KE3 6876,0; RETURN :rem 119 

3000 PRINTCS; 1 ' {RVSjNON IN PAGINA ZERO O 

f 2 SPAZI I SU ROM [ 4 GIU* } " : GOTO 1000 

:rem 23 
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100 PRINT" [CLRHCYN] ";CHRS (142) ;CHRS £B) ; : 

POKE 532 80 , 0 : POKE532 SI , 0 : rem 71 

101 POKE788 , 52 :RÉM DISABILITA RUN/STOP 

;rem 89 

110 PRINT" { RVS }{ 40 SPAZI}"? ìrem 176 
120 PRINT" [RVS}{ 15 SPAZI }( DES } {OFF H <* » 
~ { RVS } { DES } {DESK 2 5PAZ I H < * > 1 {OFF ] 
T<*>]Krvs}2{rvs} { 1 3 spazi) 11 ? 

:rem 250 

130 PRINT" { RVS H 15 SPAZ I } { DES ) £ < N> J [<H> 1 
{DES] { 2 DES) (OFF) "j RVSK (<*>] {OFF} 
[<*>]{ RVS} { 13 SPAZlT"; : rem 220 

140 PRINT" { RVS jf 40 SPAZI}" ; rem 120 

200 PRINT” { 2 GIU 1 } {PUR}EDITOR DI CODICE 
MACCHINA VERSIONE 2,0{ 3 GIU’}" 

; rem 126 

210 PRINT 11 [< 5> ] { 2 SU} INDIRIZZO DI PARTE 
NZA{ 2 SPAZI}"; : INPUTS ; F= 1 - F ;C$ *CHR$ ( 
31 +1 1 9*F) : rem 95 

22 0 I FS < 2 560R, { S> 4 0 9 6 0 ANDS < 491 52)ORS>5 3 247 
THENGOS UB 3 0 0 0 ; GOT02 1 0 ;rem 235 

225 PRINT : PRINT : PRINT :rem 180 


230 PRINT" [<5>] £ 2 SU} INDIRIZZO CONCLUSI 
VO{ 3 SPAZI}"; :INPUTE:F=1~F;C$*CHR$ (3 
1+11 9*F) ; rem 92 

240 IFE< 2 560R £ E> 4 0960ANDE< 491 52)ORE>5 32 47 
THENGOS UB 3 000: GOTO 2 30 : retti 183 

250 ife<sthenprintc$;'Mrvs}indirizzo conc 

LUSIV0< INDIRIZZO INIZIALE" ;rem 200 

255 IFE<STHENGOSUBl 000;GOTD230 ;rem 1 1 9 

260 PRINT; PRINT: PRINT : rem 179 

300 PRINT" {CLR}";CHRS (14) ; AD^S : POKEV+ 21 , 0 

:rem 225 

31 0 A-l :PRINTRIGHT$ (" 0000”+MID$ £ STR$ (AD) , 
2) ,5} ; FORJ * AT06 :rem 227 

315 FORJ=AT06 ;rem 33 

320 GCSOB570 : IFN-- 1 THENJ- J p +N: GOTO320 

: rem 228 

390 IFN= - 2 1 1 THEN7 1 0 : rem 62 

400 IFN*-204THEN790 : rem 64 

410 IFN=-2Q6THENFRINT : INPUT" {GIU* } INSERÌ 
RE IL NUOVO INDI RIZZO" ;ZZ :rem 13 

414 IFN=-206THENIFZZ<SORZZ>ETHENPRINT" 

{RVS} ESCE DAL CAMPO DI VALORI INDICAT 
0" : rena 1 05 
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415 IFN=-206THENIFZZ<SORZZ>ETH£NQOSUBl 000 
:G0T041 0 : rem 202 

417 IFN»-206THENAD=ZZ : PRINT : G0T031 0 

:rem 238 

420 IFNO-196THEN480 : rem 133 

430 PRINTi INPUT"LISTATO: DA"; F:PRINT" 

{ 9 SFAZ I } A" ; : INPUTT trem 183 

4 40 IFF <SORF>EOlÌT <SORT> ETHENPRI NT "M IH IMO " 
;S; " MASSIMO" ;E;" I [<5>] ":GOTG43Q 

: rem 147 


450 FORI=FTQTSTEP6;PRINT:PRINTRIGHT$ ("000 



0 H +MID$ (STR$ (I) ,2) ,5) ; 

treni 

30 

451 

PORK= 0TO5 : N= PEEK ( I+K) ;PRINTRIGHT$ ( 

"00 


"+MID$ (STR? (N) , 2 ) ,3) ; j 

treni 

66 

460 

GETA$ :IFA$> ""THENPRINT SPRINT :GOT031 0 



: rem 

25 

470 

NEXTK:PRINTCHR$ (20) ; tNEXTI : 

PRINT: PRIN 


T : GOTO 31 0 

treni 

50 

480 

IFN<0THENPRINT;GOTO31 0 

trem 

168 

490 

A( J) -NtNEXTJ 

: rem 

199 

500 

C KSUM= AD - X NT ( AD/ 2 56) *25 6 S FORI- 1 TQ6 

:CK 


SUM= (CKSUM+A(I) ) AND255:NEXT 

: rem 

200 

510 

PRINTCHRS (1 8) ; : GOSUB5 70 : PRINTCHR$ (146 


); 

: rem 

94 

51 1 

IFN=-lTHENA=6:G0TO31 5 

: rem 

254 

51 5 

PRINTCHR$ ( 20 ) :IFN=CKSUMTHEN530 




: rem 

122 

520 

PRINT : PRINT "( RED f LA LINEA E 

* STATA 

. IN 


SERITA IN MANIERA" 

: rem 

157 

525 

PRI NT "ERRATA. RIPETERE t< 5>] 

PRINT 

: GO 


SUBÌ 000:GOT031 (5 

: rem 

27 

530 

GOSOB2000 

; rem 

218 

540 

FOR I = 1 T06 i PO KE AD+ 1 - 1 ,A(I) :NEXTiPOKE54 


272,0 ì POKE54273, 0 

: rem 

227 

550 

AD*AD+6 : IFAD<ETHEN31 0 

: rem 

21 2 

560 

GOTO 71 0 

; rem 

108 

570 

N=0 : Z=0 

: rem 

08 

580 

PRINT" I<~>] "f 

: rem 

81 

581 

GETAS : I FA? - " "THEN581 

; rem 

95 

582 

AV=- ( A? = "M" ) - 2 * ( A? = " , " ) - 3 * ( A? = " . " ) 

-4* 


( A$ = "J " ) - 5 * ( A? = "K" ) - 6 * (A$ * " 

L") 




: rem 

41 

583 

AV=AV-7* (A?=”U") -8* (A$="I") 

-9* (A$= 

"O" 


) : I FA? = "H " THENA? = " 0 n 

: rem 

134 

584 

IFAV>0THENA$=CHR$ (48+AV) 

; r em 

134 

585 

PRINTCHRS (20) ; :A=ASC (A$) :IFA=1 3 ORA 

L - 4 4 


ORA- 3 2THEN6 70 

:rem 

229 

590 

IFA> 1 2 8 THENN= -A r RETURN 

: rem 

137 

600 

IFA020THEN630 

trem 

10 

610 

GOSUB690 ; IFI = 1 ANDT=44TF1ENN= 

-1 ; PRINT" 


{SIN} {SIN}"; : GOT06 90 

:rem 

172 

620 

GOTO 5 70 

:rem 

109 

630 

I F A< 4 BORA > 5 7 THE N 5 8 0 

trem 

105 

640 

PRINTA$: : N-N* 1 O+A-4 8 

: rem 

1 06 

650 

IFN>255THENA=2 0 : GOSUBl 00Q:GOTO60Q 




: rem 

229 

660 

Z = S + 1 : IFS< 3THEN5 80 

trem 

71 

670 

IFZ = 0THENGOSUBl 000 : GOTO570 

:rem 

114 

680 

PRINT" : RETURN 

trem 

240 

690 

S%=PEEK (209)+256*PEEK (21 0) +PEEK (21 1 ) 



; rem 

1 49 

691 

FORI “ 1 TO 3 : T= PEEK (S%-I) 

t r em 

67 

695 

I FT < > 4 4 ANDT< > 5 8THENPQKES % - I 

, 32 : NEXT 



:rem 

205 

700 

PRINTLEFT8 ("{ 3 SIN}" ,1-1); 

: RETURN 



trem 

7 

710 

PRINT"{CLR} {RVS}*** SAVE *** 



( 3 GIU'}" 

: rem 

236 


715 PRINT" { 2 GIU 1 } PREMERE { RVS } RETURN 
{OFF} PER USCIRE DAL SAVE{GlU 1 T f 

trem 103 


720 F$-" " ; INPUT 1 * {GIU 1 } NOME DEL FILE M ;FS:I 
FF $ ^ 1T "THENPRINT : PRINT : GOT 03 1 0 

- : rem 4 2 

730 PRINT: PRINT" { 2 GIU 1 } {RVS} N{ OFF} ASTRO 
O { RVS } D { OFF } I SCO : (N/D) ” :rem 128 

740 GETA$ : I F A$ < > ” W " ANDA$ < > "D "THE N 7 4 0 

:rem 30 

750 DV =1 - 7 * ( A$ = H D " ) : 1 FDV= 8 THENF$ = "0 : TI +FS : 

QPENl 5 , 8,1 5 , 11 S 11 +F$ : CLOS El 5 : rem 21 2 

760 T$ = F$ : ZK^PEEK ( 53 ) + 256 *PEEK { 54 ) -LEN (TS 
) :POKE 782 ,SK /256 : rem 3 

762 POKE 781 , ZK- PEEK ( 782 ) * 256 : POKE 780 , LEN f 

TS):SYS 65469 trem 109 

763 PQKE 78 Q, 1 :POKE 781 , DV : POKE 7 82 , 1 :SYS 654 

66 :rem 69 

765 K = S : POKE 2 54 , K /2 56 : POKE 2 53 , K-PEEK ( 254 ì 

*256 ; POKE 7 80 ,2 53 :rem 17 

766 K=E +1 : POKE 7 82 , K /2 56 : POKE? 8 1 , K-PEEK {78 

2 ) * 256 :SYS 65496 : rem 235 

770 IF (PEEK ( 783 ) AND 1 ) OR( 1 91 ANDST} THEN 780 

treni 111 

775 PRINT" {GIU 1 } FATTO, [GIU 1 } GOT 031 0 

:rem 201 

780 PRINT" {GIU 1 } ERRORE NEL SAVE-RIFROVA ! " 

;IFDV= 1 THEN 720 ~ :rem 104 

781 QPENl 5 , 8 , 1 5 : INPUT#! 5 , El $ , E 2 $ : PRINTEl $ 

;E 2 $;CLOSEl 5 :GOTQ 720 : rem 103 

790 PRINT" {CLR} {RVS}*** LO AD *** 

{ 2 GIU 1 } ,r : rem 21 2 

795 PRINT" { 2 GIU’ } PREMERE [ RVS } RETURN 
[OFF} PER USCIRE DAL LOAD{GIU' }” 

: rem 96 

800 FS = " " ; INPUT" £ 2 GIU 1 } NOME DEL F I LE 1T ? F 
$ :IFF$=" "THENPRINT :GOT 031 0 trem 11 5 
810 PRINT: PRINT" { 2 G TU ' }{ RVS }N{ OFF } ASTRO 
O { RVS } D{ OFF } ISCO : (N/D)" trem 127 

82 0 GETA 5 : 1 FA$ < > " N " ANDA 8 < > "D " THEN 8 2 0 

! rem 2 8 

830 DV^l- 7 * ( A$ = " D w ) : IFDV= 8 THENF$ = "Q : ir +F$ 

: rem 1 5 7 

840 T 8 -FS : 2 K=PEEK ( 53 ) + 2 56 *PEEK [ 54 ) -LEN (T$ 

) :POKE 782 ,ZK /256 : rem 2 

841 POKE 781 ,ZK-PEBK( 782) * 2 56 : POKE 780 , LEN ( 

TS ) : SYS 65 469 :rem 107 

845 POKE 780 , 1 :POKE?S 1 , DV : POKE? 82 , 1 :SYS 654 
66 trem 70 

85 0 POKE 780 , 0 : S YS 6 54 93 : rem 11 

860 IF (PEEK ( 783 ) AND! ) OR ( 1 91 ANDST) THEN 870 

;rem 111 

86 5 PRINT" {GIU* } FATTO - " : G 0 TO 3 1 0 trem 184 
870 PRINT" [GIU 1 } ERRORE NEL LOAD-RIPETI i 

{GIU 1 } 11 : IFDV=1 THEN800 : rem 19 

880 OPENl 5,8,15; I NPUT4 1 5 , E 1 S , E2 $ : P RI NTE 1 $ 
?E2$;CLOSEl 5:GOTO800 :rem 102 

1000 REM CICALINO srem 231 

1 001 POKE 54296 , 1 5 ;POKE 54277 , 45 ; POKE 54278 , 

165 :rem 207 

1 002 POKE 54276 , 33 : POKE 54273 , G : POKE 542 72 , 5 

:rem 42 

1 00 3 FORT= 1 T 02 00 ; NEXT : POKE 54 2 76 , 32 : POKE 5 4 
2 73 , 0 ; PQKE 54272 , 0 : RETURN : rem 202 

2000 REM CAMPANELLO : rem 130 

2001 POKE 5 4 2 96 , 1 5 : POKE 54277 , 0 : POKE 54278,2 

47 ; rem 152 

2002 POKE 54276, 1 7 t POKE 54273 , 40 :POKE 5 42 72 , 

0 :rem 86 

200 3 FORT - 1 TOT 00 ;NEXT : POKE 54 2 76 , 1 6 : RETURN 

: rem 57 

3000 PRINTCS;” {RVS} NON IN PAGINA SERO O 
SU{DES}ROM ":GOTOlOOO :rem 240 
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7 Note Bit 



COSÌ. 


Oggi la musica si i 


Il 1985 è l'anno mondiale delia musica. „ 
preparati con 7 note Bit , la nuova, fantastica opera 
che in soli 15 fascicoli quattordicinalì (ciascuno 
corredato da una cassetta software per Commodore 64) 
ti insegna veramente la musica. E puoi suonare subito 
Non perdere il primo numero. Penso, compresa nel 
prezzo c'è anche la stupenda tastiera professionale per 
il tuo Commodore 64. 



IN COLLABORAZIONE CON 3EL 



....E VINCI 30 STRAORDINARI 
COMMODORE PLUS/4 


GRUPPO 


DM 4/275256 de» 2-3 85 



DAL 27 MARIO 


È IN EDICOLA 

LA TASTIERA COMPUSA 



preparali con 7 note Bit , ìa nuova, fantastica opera 
che in soli 15 fascicoli quattordicinoll {ciascuno 
corredato da una cassetta software per Commodore 64) 
ti insegna veramente la musica* 


Con 7 note Bit , porti in caso il tuo maestro personale 
dì musica che fi introduce alla teoria e al lessico 
musicali, ti insegna e ti fa fare pratica sulla tastiera, 
seguendoti passo passo nelle lezioni ♦ senza mai 
annoiarti, 

£ puoi suonare subito, con l'aiuto del software 
“interattivo" della cassetta e dello speciale tastiera 
musicale per II tuo 64* 

7 note Bit trasforma il Commodore 64 in una 
strumento musicale sofisticato ed entusiasmante. 



USKA SI IMPARA COSÌ. 




I «mi ititi mi Ih ninni imt Mulini t 

S2E 


Il vìdeo del computer ti presento tutto ciò che ti 
server un metronomo elettronico, il rigo musicale, 
la tastiera visualizzato con le note corrispondenti ai tasti 
... e potrai partecipare "dal vivo" alfe session dei 
musicisti più famosi, suonando insieme a loro. 

Prenota in edicola 7 note Bit : uno prestigioso iniziativa 
editoriale nata dall'anione della esperienza informatico- 
divulgativa del Gruppo Editoria le Jackson i 
con lo competenza tecnico- musicale SIELs 


7 note Bit è il "programmo musicale" 
più interessante che c'è: 
non perdere 
if primo numero. 

Pensa, compreso i;'a gruppo 
££%?££? EDITORIALE 

professionale per il 
tuo Commodore 64. 





Il Joystick 

Come acquisire i 
segnali provenienti dai 
joystick e simularne il 
funzionamento sulla 
tastiera: parte terza 



w 


di LLG, Barzaghi 



Come acquisire i segnali prove- 
nienti dal joystick del V1C 20 


P aradossalmente, l'acquisizione dei 
segnali provenienti dall'unica Con- 
trol Fort de! V1C 20, destinata esplicita- 
mente al controllo dei joystick {un se- 
condo joystick può essere Interfacciato 
tramite la User Fort), risulta più compli- 
cata delle analoghe operazioni sul C64 
Innanzi tutto, anche se il V1C 20 destina 
un'unica interfaccia al controllo del joy- 
stick. tn realtà sono due - come per il 
C64, quindi — le locazioni riservate al- 
l'acquisizione dei segnali Ma, mentre 
per il C64 le due locazioni controllano 
due unità distinte, per il V!C 20 esse 
servono un unico joystick. Come se ciò 
non bastasse, la suddivisione dei compi- 
ti tra le due locazioni coinvolte non è 
né equa né, apparentemente, raziona 
le. 

La prima delle due locazioni (37151) 
controlla infatti, oltre al pulsante di fuo- 
co, gli spostamenti del joystick in senso 
verticale e, orizzontalmente, verso sini- 
stra, La seconda (37152) controlla i soli 
spostamenti verso destra, n> a non è tut- 
to! Essa divide le sue funzioni tra il con- 
trollo degli spostamenti verso * EST 1 ', 
tramite il bit più significativo, e la scan 
sione della tastiera. Ciò significa che 
non è possibile acquisirne 1] segnale sen- 
za disattivare, almeno provvisoriamen- 
te, parte della tastiera. 

Ciò significa che le operazioni connesse 
con la lettura del segnale proveniente 
dal solo joystick connesso col VIC 20 
sono molto più complesse e costose, 
sempre in termini di tempo, di quanto 
succede sul C64. 

La logica del segnale e, come nel caso 
del fratello maggiore, “negativa": la 
configurazione dei bit delle due locazio- 
ni è la seguente 

Locazione 37151 

Bit 7 6 5 4 3 2 1 0 

Peso 128 64 32 16 8 4 2 1 

--POSN-- 


Locazione 37152 

Bit 7 6 5 4 3 2 1 0 

Peso 128 64 32 16 8 4 2 1 

Come detto, parte della locazione 
37152 é riservata alla scansione della 
tastiera. Ciò significa che è possibile 
compiere una lettura semplice, ma non 
esaustiva, del segnale proveniente dal 
joystick, solo se non si desidera control- 
lare gli spostamenti verso destra (ad 
esempio perché sono sufficienti i soli 
spostamenti in senso verticale). 


L’acquisizione dei segnali connessi alla 
locazione 37151 è possibile tramite le 
istruzioni 

*"10 P-PEEK (37151) :P=NOTP 
*“20 1FPAND32THEN,.. : REM PUL- 
SANTE DJ FUOCO 
*"30 IFPANDlóTHEN... REM 

OVEST 

"*40 IFPAND8 THEN... : REM SUD 
***50 IFPAND4 THEN.. : REM 
NORD 

Come potete vedere. Il procedimento 
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non differisce da quanto fatto per l'ac- 
quisizione dell'analogo segnale de] C64. 
L'unica differenza riguarda appunto gli 
spostamenti verso destra. 

Per ovviare a questo inconveniente è 
necessario rinunciare al controllo di par- 
te della tastiera. È ovviamente possibile 
farlo allìnizio del programma, tramite 
una istruzione 

POKE 37154,127 

rinunci andò definitivamente al controllo 
di parte di essa, re inserendolo, magari 
prima della fine del programma, trami- 
te una istruzione 

POKE 37154,255 

Questo nel caso in cui non sia indispen- 
sabile il controllo dellìntera tastiera nel 
corso del programma e l'acquisizione 
del segnale proveniente dal joystick 
(spostamenti verso destra inclusi) debba 
essere il più possibile rapida (ma in que- 
sto caso sarebbe probabilmente consi- 
gliabile far ricorso al linguaggio macchi- 
na). 

Se è invece necessario avere il controllo 
dell'intera tastiera nel corso del pro- 
gramma, e non si hanno particolari pro- 
blemi di tempo, potete utilizzare questa 
terna di istruzioni 

“UO POKE 37154,127 
—20 P-NOT(PEEK{371521) :IFPAN 
DI28THEN.. ; REM EST 
‘“30 POKE 37154,255 

Se siete curiosi di sapere quale sìa la 
natura delle interferenze tra II joystick 
e la tastiera, provate ad inserire la pre 
sa del joystick nella Control Port del 
V1C e a premere i tasti numerici, tenen- 
do il joystick spostato verso destra. Da- 
to che I tasti della riga superiore sono 
tra 1 più utilizzati nel corso di un pro- 
gramma, capirete come sia consigliabile 
tenere ben distinte le due funzioni svolte 
dalla locazione 37152. 

E ovviamente possìbile concentrare la 
serie di istruzioni precedenti in qualche 
cosa di più pratico e di più facile gestio- 
ne. 

È possibile, ad esempio, far confluire la 
lettura delle due Locazioni in una sola 
variabile, con una istruzione del tipo 

“‘00 P= (NOT PEEK137151}) AND 60 
- ((PEEK137152) AND 128) -0) 

decodificandola quindi nel modo con- 
sueto 

‘“10 FPAND32:THEN... : REM PUL- 
SANTE DI FUOCO 
'“20 fFPÀNDl6:THEN... REM 
OVEST 

“"30 IFPAND S:THEN. : REM SUD 
“‘40 IFPAND 4:THEN... : REM NORD 
*“50 IFPAND LTHEN... : REM EST 

Come avrete potuto notare, la seconda 
parte della istruzione in *“00 traduce 


la jettura del segnale in logica "negati- 
va", proveniente dal bit più significativo 
della locazione 37152, in un segnale in 
logica "positiva", che coinvolge il bit 
meno sigificativo della locazione rap- 
presentata dalla variabile P 
Un altro modo di acquisire lo stesso se- 
gnale letto in ‘“00 consìste nello scom- 
porlo nelle sue componenti orizzontali 
e verticali tramite la seguente coppia di 
istruzioni 

OZ = SGNfX AND 1) - 5GN(X AND 
16} 

VT = SGNfX AND 8) - SGN(X AND 4) 

Il contenuto della variabile QZ fnon è 
possibile utilizzare una variabile avente 
per iniziale la coppia di lettere OR per 
indicare gli spostamenti orizzontali, dal 
momento che l'interprete BASIC non le 
accetterebbe come nome di variabile - 
anche se seguite da altre lettere - data 
l’esistenza dell'operatore logico OR) sa- 
rà uguale a+l,-lo0ìn base al fatto 
che siano attivati, rispettivamente, i 
micr cinte rrutto ri di destra, sinistra o 
nessuno dei due. Analogamente, la va 
riabile VT conterrà un valore numerico 
pari a +1 nel caso in cui il jostick venga 
spostato verso l’alto e -1 nel caso in 
cui lo spostamento sia stato verso il bas- 
so. 

Esiste, però, un modo ancora più eie 
gante di acquisire e convertire i segnali 
provenienti dalle due locazioni connes- 
se con la Control Port, pulsante di fuoco 
escluso. Esso può essere raccolto nel 
breve programma e nella tabella che se- 
guono 

“'00 POKE 37154,127 

“'10 V1=PE£K[37152) AND 128 

'“20 V2“PEEK(37151) AND 28 

'“30 POKE 37154,255 

“‘40 JS-V1/16+V2/4 

“‘50 JSHNOTJS)AND15 


Posizione 
del joystick 

JS 

DX 

DY 

Neutra 

0 

0 

0 

Nord 

1 

0 

-1 

Sud 

2 

0 

1 

Impossibile 

3 

0 

0 

Ovest 

4 

-1 

0 

Nord-Ovest 

5 

~1 

-I 

Sud-Ovest 

6 

-1 

1 

Impossìbile 

7 

0 

0 

Est 

3 

1 

0 

Nord -Est 

9 

1 

“1 

Sud-Est 

10 

1 

1 


L’istruzione di riga '“40 del breve pro- 
gramma precedente congloba I segnali 
provenienti dalle due locazioni in un uni- 
co byte (quello riservato alla variabile 
JS) con la seguente configurazione dei 
bit riservati al controllo dei singoli 
microln ter ruttori 

Bit 7 6 5 4 3 2 1 0 

Peso 128 64 32 16 8 4 2 1 

-~--EOSN 


Dividendo per 16 il segnale (contenuto 
nella variabile VI) proveniente dal bit 
più significativo della locazione 37152, 
lo si trasferisce, infatti, dal bit di peso 
128 al bit di peso 128/16=8. 
Sommando questo segnale a quello prò* 
veniente dalla locazione 37151 (conte- 
nuto nella variabile V2), diviso a sua 
volta per 4 (e traslato perciò dì due bit 
verso destra), si Ottiene la configurazio- 
ne suindicata in cui ì quattro bit di con- 
trollo del segnale offrono il vantaggio di 
consentire una configurazione più simile 
a quella vista per le locazioni connesse 
con le Control Port del C64 
L'unico inconveniente è presentato dal- 
l’assenza del pulsante di fuoco, Se si è 
disposti a rinunciare alla rapida decodi- 
fica del segnale di spostamento, rias- 
sunta dalla tabella precedente (dove 
vengono anche riportate le variazioni 
deile coordinate di un eventuale ogget- 
to controllato tramite il joystick), è pos- 
sibile inserirlo in maniera piuttosto sem- 
plice, sostituendo alle istruzioni ‘"40 e 
‘“50 le seguenti 

‘“40 J5=Vl/8 + V2/4 
‘“50 J$=(NOTJS)AND 31 

ottenendo la configurazione 


Bit 76543210 
Peso 128 64 32 16 8 4 2 1 

---EPOSN 

dove P rappresenta il bit connesso col 
micro inter ruttore del pulsante di fuo- 
co. 

Oppure, se si vogliono mantenere i se- 
gnali di spostamento in un campo di 
valori utilizzabili come indici di e ventali 
matrici, è necessario aggiungere l'istru- 
zione 

‘“15 V3*PEEK(37 1 5 1 ) AND32 

e modificare le istruzioni '*‘40 e '“50 
nel modo seguente 

“‘40 JS^Vl/ló+V2/4+V3/2 
*“50 JS={NOTJ$)AND31 

in modo da ottenere la configurazione 

Bit 7 6 5 4 3 2 1 0 

Peso 128 643216 B 4 2 1 

---PEOSN 

che consente dì utilizzare la tabella pre 
cedente. 


Programma 1: 
funzionamento 
e commenti ni listato 

Dato il carattere prettamente didattico 
di questo articolo e dei programmi che 

10 corredano, abbiamo preferito rtnun 
eia re ad utilizzare, per quanto riguarda 

11 V1C 20, eventuali espansioni di me- 
moria, per dar modo anche agli utenti 
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D Joystick 


di VIC 20 In configurazione standard 
(inespansa} di utilizzare i programmi 
studiati per il loro calcolatore. 

Ciò ha, ovviamente, richiesto un pazien- 
te lavoro di H di stillazione" delle istruzio- 
ni e la rinuncia a parecchie delle opzioni 
offerte dai programmi per il C64. 

La prima, e più vistosa, differenza è 
data dalla Indisponibilità sui VIC 20 de- 
gli sprìfe Per supplire a questa man- 
canza abbiamo pensato di utilizzare i 
caratteri grafici personalizzati. Questa 
scelta cì ha posto di fronte ad un'altra 
serie di problemi, innanzi tutto in termi- 
ni di occupazione di memoria. La me 
moria RAM (Random Access Memory, 
memoria ad accesso casuale) del calco- 
latore, infatti, doveva contenere non so- 
lo i dati necessari a ridefinire gli otto 
caratteri destinati a contenere le frecce 
della “bussola", ma anche io spazio ri 
servato ad una copia parziale de] set di 
caratteri contenuto in memoria ROM 
(Read Onty Memory, memoria a sola 
Lettura). Un ulteriore problema era rap- 
presentato dalla scelta di quali caratteri 
dovessero far parte della copia. Il loro 
numero doveva, ovviamente, essere li- 
mitato Ila definizione di ogni carattere 
richiede 8 byte), ma il set doveva, ne- 
cessariamente. coprire almeno la serie 
delle lettere maiuscole dell'alfabeto, le 
dieci cifre ed una serie di simboli aritme- 
tici (*, + , -, /), Era inoltre necessario 
prevedere dello spazio disponibile a 
contenere i caratteri ride fin iti e disporre 
questi ultimi in modo che il loro control 
lo fosse pratico, il più possibile sempli- 
ce, ma senza rinunciare ad alcuno dei 
caratteri suddetti né occupare una 
quantità di memoria eccessiva 
Óltre a ciò, lo spazio riservato al set dì 
caratteri personalizzato andava protet- 
to da eventuali interferenze del listato 
BASIC, abbassando il limite superiore 
della memoria RAM riservata a conte- 
nerlo. 

Tutto ciò significa che, per quanto ri- 
guarda il programma 1, l'uscita su vi- 
deo del quadro della bussola risulta, ad 
esempio, molto semplificata rispetto a 
quanto visto per il C64. 

Dopo aver copiato il programma, ed 
averne registrato una copia, è possibile 
eseguirlo tramite un RUN. Dato che la 
Control Pori cui colie gare il joystick è, 
in configurazione standard, una sola, 
non è stato necessario inserire alcun 
menu di scelta prima dell'uscita del pia- 
no della bussola. 

Sarà comunque necessario attendere 
che il calcolatore copi] dalla ROM parte 
del set di caratteri e vi inserisca la rideft 
nizione di quel]] tra essi che verranno 
utilizzati per indicare le varie direzioni 
sulla bussola 

Un'ulteriore, gravosa, limitazione è da- 


ta dalle dimensioni dello schermo del 
VIC 20. Per questa ragione il quadro 
delle direzioni è volutamente abbrevia- 
to (solo le quattro direzioni cardinali 
vengono indicate per esteso, le direzioni 
intermedie sono identificate dalle sole 
Iniziali) ed anche le indicazioni sulla par- 
te superiore dello schermo sono assai 
ridotte. Nell'angolo superiore sinistro, 
in blu. viene visualizzato il valore della 
variabile P* pari al valore numerico ac- 
quisito tramite la Control Pori, mentre 
nell'angolo superiore destro, in verde, 
viene indicato il valore della variabile 
JS, ricavata dall’istruzione 

JS = ABS((P-100)/4)-7 

Spostando in qualsiasi direzione la leva 
del joystick comparirà una freccia pun 
tata nella direzione corrispondente e la 
direzione indicata verrà evidenziata in 
rosso* mentre il contenuto delle variabili 
P e JS verrà aggiornato. 

Premendo il pulsante del joystick è pos 
sibìle cambiare il colore del carattere al 
centro dello schermo. Per interrompere 
Il programma è necessario premere 
RUN /STOP. 



Come simulare un joystick 
tramite la tastiera del VIC 

Le differenze esistenti fra racquisizione 
dei segnali provenienti dal joystick del 
C64 rispetto al VÌC 20 sono* come ab- 
biamo avuto modo di vedere nei due 
paragrafi precedenti, decisamente no- 
tevoli. 

Volendo utilizzare, invece, la tastiera 
del VIC 20 per simulare il funzionamen- 
to di un joystick, non sì rilevano diffe- 
renze di particolare entità rispetto a 


quanto visto per il 064. tanto che non 
risulta particolarmente difficile conver- 
tire per uso sul VIC 20 un programma 
che funzioni su C64 e che utilizzi come 
controllo non il joystick, ma la tastiera 
(a parte, ovviamente, tutte le diversità 
esistenti tra i due calcolatori per dimen- 
sioni e posizionamento della memoria 
di schermo o della memoria di controllo 
del colore). Pertanto riteniamo super- 
fluo ripetere quanto già diffusamente 
trattato nell'articolo di commento al 
programma per C64; ci limiteremo in- 
vece ad evidenziare le diversità esisten- 
ti. 

Per quanto riguarda l'acquisizione dei 
segnali tramite istruzioni GET non esi- 
stono differenze tra i due calcolatori, 
dal momento che i rispettivi codici 
ASCII sono identici. Anche la locazione 
da utilizzare per acquisire segnali trami- 
te istruzioni PEEK è la stessa (197); 
cambiano però i valori numerici che si 
ottengono in corrispondenza degli stessi 
tasti. 

Come nel Programma per C64* pubbli- 
cato sul numero scorso della rivista* an 
che nel Programma 2 abbiamo comim 
que inserito una breve routine* che con- 
sente di visualizzare sullo schermo i va- 
lori numerici corrispondenti ai tasti pre- 
muti ed acquisiti mediante l'istruzione 
PEEK (197). È possibile attivare questo 
breve sottoprogramma battendo 

Run 950 

Come ricorderete, premendo RETURN 
il valore ottenuto sul C64 era pan a 60. 
Lo stesso tasto, premuto sul VIC 20 ed 
acquisito con la stessa istruzione PEEK 
(197)* restituisce un valore pari a 32* 
Analoghe differenze sono presenti su 
quasi tutti gli altri tasti. La tabella se- 
guente elenca I valori numerici ottenuti 
tramite l'istruzione PEEK (197) sul C64 
e sul VIC 20 per i tasti* utilizzati nei due 
programmi, dedicati alla simulazione 
de! funzionamento dì un Joystick sulta 
tastiera. 


Valore ottenuto 

tramite Fistruzìone PEEK (197) 



C64 

VIC 20 

Tasto RETURN 

1 

15 

Barra spaziatrice 

60 

32 

n 

4 

39 

f7 

3 

63 

Q 

62 

48 

w 

9 

9 

E 

14 

49 

A 

10 

17 

D 

18 

18 

Z 

12 

33 

X 

23 

26 

C 

20 

34 


Non dovrebbero esserci particolari pro- 
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OK-List 
per la perfetta 
battitura 
dei listati 


li 


I nserite in memoria V OK-LIST prima 
di accingervi a battere i listati pubbli- 
cati: avrete a disposizione un formidabi- 
le mezzo per essere sicuri di aver inseri- 
to nel computer ogni carattere in modo 
assolutamente corretto. 

Tutti I nostri listati sono caratterizzati 
da un numero aggiunto ad ogni linea di 
programma, ad esempio: rem 123. 
NON COPIATE QUESTA PARTE 
DELLA LINEA! Serve unicamente per 
vostra informazione. L’istruzione REM 
ha l'unico scopo di renderla inoffensiva, 
se per errore doveste batterla. 

Se, prima di iniziare il lavoro di battitura 
del listato, caricate in memoria OK- 
LIST e Io attivate con RUN T per ogni 
linea che battete verrà visualizzato un 
numero (detto checksum) nell’ angolo 
superiore sinistro dello schermo. 
Confrontate questo numero con quello 
pubblicato per ogni linea del listato: se 
non corrisponde, ciò significa che avete 
commesso un errore nella battitura del- 
la linea stessa. 

Le ore buttate per cercare e correggere 
errori di battitura in programmi che non 
funzionano saranno solo un lontano ri- 
cordo! 

Due ultime cose di cui tenere conto: 
OK-LIST non tiene conto degli spazi: 
questo per vostra convenienza, poiché 
questi generalmente sono poco impor- 
tanti. 

Infine, OK-LIST è allocato nel buffer del 
registratore {locazioni 886-1018). quin- 
di, prima di salvare su cassetta il pro- 
gramma che state battendo, ricordatevi 
di disabitato premendo contempora- 
neamente RUN/STOP + RESTORE, 
Potrete poi riattivarlo con SYS 886. 

Il sistema più comodo per usare OK- 
LIST è quello di battere normalmente 
il programma, quindi listarlo e portarsi 
con il cursore sul numero di linea più 
basso che appare sul video; premere 
quindi RETURN e confrontare il nume- 
ro di check-sum visualizzato nell’angolo 
superiore sinistro del video con quello 
pubblicato per la data riga del program- 
ma. Il cursore si porterà automatica- 
mente sulla linea successiva e non do- 
vrete fare altro che premere il che- 
cksum seguente. 

Data l’area di memoria in cui si trova, 
OK-LIST non può essere usato per con- 
trollare un programma già salvato su 
cassetta, mentre ciò è possibile se il pro- 
gramma è stato registrato su disco. 



OK-LIST 
versione 
per VIC 20 
e C 64 


100 PRI NT 11 {CLR} ATTENDERE PREGO * # * " 

105 FORI * 8 8 6T01 0 1 8 : RE AD A : CK-CK+ A ! POKE I , A : 
NEXT 

110 IF CK017539 THEN PRINT" {GIU ERRORE 
NELLE ISTRUZIONI DATA": END 
120 SYS 0 86 : FRI NT" {CLR} { 2 GIU'JOIULIST AT 
TI VATO . " : NEW 

886 DATA 173,036,003,201,150,208 
892 DATA 001,096,141,151,003,173 
898 DATA 037,003,141,152,003,169 
904 DATA 150,141,036,003,169,003 
910 DATA 141,037,003,169,000,133 
916 DATA 254,096, 032, 0B7, 241, 133 
922 DATA 251,134,252,132,253,008 
928 DATA 201,013,240,017,201,032 
934 DATA 240,005,024,101,254,133 
940 DATA 254,165,251,166,252,164 
946 DATA 253,040,096,169,013,032 
952 DATA 210,255,165,214,141,251 
958 DATA 003,206,251,003,169,000 
964 DATA 133,216,169,019,032,210 
970 DATA 255,169,018,032.210,255 
976 DATA 169,058,032,210,255,166 
982 DATA 254,169,000,133,254,172 
988 DATA 151,003,192,087,208,006 
994 DATA 032,205,189,076,235,003 
1000 DATA 032,205,221,169,032,032 
1006 DATA 210,255,032,210,255,173 
1012 DATA 251,003,133,214,076,173 
1018 DATA 003 
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blemi anche con le altrje locazioni da noi 
indicate come fonti di segnali connessi 
con La tastiera, anche se confessiamo di 
non averle provate per quanto riguarda 
il VIC 20; riteniamo, comunque, che 
per quanto riguarda il controllo dello 
stato di SHIFT, CTRL o COMMODG 
RE non dovrebbero esserci rilevanti dif 
ferente, mentre immaginiamo che la lo- 
cazione 203 presenti le stesse differen 
ze esistenti tra i due segnati della 197 
sui due diversi calcolatori. 

Il Programma 2 funziona in modo analo- 
go al Programma per C64 per quanto 
riguarda T use ita del piano della bussola 
e la freccia indicatrice visualizzata. 
Contrariamente al programma prece- 
dente in versione VIC, però, abbiamo 
mantenuto il menu che consente di sce 
gllere, come sul Programma 2, tra ac- 
quisizione del segnale tramite 
nPEEK(!97) e tramite GET X$. Anche i 
tasti di controllo sono gli stessi: il tasto 
f] consente il passaggio da una opzione 
del menu alla precedente ed il tasto f7 
realizza il trasferimento in senso inver- 
so. Il tasto RETURN e la barra spaziatri- 
ce. infine, fungono da pulsanti di fuoco 
"virtuali* per passare al quadro della 
bussola una volta scelta F opzione desi- 
derata. 

Il fatto di fornire questo menu di scelta 
ha fatto sì, però, che avessimo ancor 
meno spazio disponibile nella memoria 
inespansa del VIC 20, costringendoci 
ad un minuzioso lavoro per quanto ri- 
guarda, ad esempio, la scelta dei carat 
ferì da ridefìnire. 

N trasferimento del set di caratteri ROM 
in RAM. operato dal sottoprogramma 
delle righe 600-660, si limita ai primi 
61 caratteri, dovendo inoltre disporre, 
per la visualizzazione del menu, di alcu- 
ni dei caratteri che nel programma pre 
cedente venivano ridefiniti (*$'**, *)\ *)\ 
ecc.L è stato necessario personalizzare 
altri caratteri e, per ragioni di spazio, 
gli otto caratteri contenenti le frecce in- 
dicatrici sono così risultati non consecu 
ti vi. Questo fatto ci ha costretti a memo 
rizzare l'indirizzo del vari indicatori sot- 
to forma di scarto da sommare ad un 
Indirizzo di base comune. 

Nelle righe seguenti vengono commen- 
tate, brevemente, le istruzioni fonda- 
mentali che differenziano il Programma 
per C64 dal Programma 1. 

Righe Commento 

30- 1 00 V isua I i zzazione d el menu e 

inizializzazione delle varia 
bill ad esso relative, in ma- 
niera non diversa da quan- 
to fatto sul C64. 

HO Acquisizione del tasto pre- 

muto tramite istruzione 
PEEK(197). Il test stabilì 


sce se è stato premuto uno 
dei due pulsanti di fuoco 
"virtuali*; in caso positivo 
il programma passa alla 
sezione di visualizzazione 
del quadro della bussola 

120 130 Si compiono test per stabi 
lire se siano stati premuti I 
tasti funzione fi o f7 e si 
aggiorna di conseguenza 
l'opzione attivata, 

230 Nel caso in cui sia stata 

scelta la seconda opzione 
per quanto riguarda Fac 
quisizione dei dati [GET 
X$) sì dirama verso la se- 
zione di programma op- 
portuna, 

250 Sì acquisisce il segna 

le proveniente dalla ta- 
stiera tramite l’istruzione 
PEEK(197) (prima opzlo 
ne) e si azzera la variabile 
FL, che indica la significati- 
vità del segnale acquisito. 
Si richiama, quindi, il sotto- 
programma di decodifica 
del segnale. Si provvede 
ad eseguire un test sul con- 
tenuto della variabile FL e 
nel caso in cui esso sia 
uguale a 1 - segnale non 



significativo - si provvede 
a richiamare il sottopro 
gramma dì controllo del 
colore del carattere 
280 Nel caso in cui il segnale 

acquisito dal joystick sta si- 
gnificativo. si inserisce, tra- 
mite una istruzione PQKE, 
il colore attuale nella loca- 
zione della memoria colore 
corrispondente al centro 
dello schermo. Il carattere 
da visualizzare viene stabi- 
lito aggiungendo uno scar- 
to opportuno US} ad un 


Il joystick 

valore di base del codice 
ài carattere (27) e viene 
quindi inserito nella loca- 
zione corrispondente della 
memoria di schermo. La 
differenza rispetto a quan- 
to fatto in riga 260 del prò- 
grammma 1 è data dal fat- 
to che, in questo caso, la 
non consecutivìtà del cara 
teri personalizzati non con- 
sente di utilizzare come 
scarto il valore SP (utilizza- 
to anche come Indice delie 
matrici contenenti i dati 
della bussola), ma rende 
necessaria l'introduzione 
di una seconda variabile 
JS. 

290 Viene visualizzato il conte- 

nuto attuale della variabili 

PeXS, 

320-335 Sottoprogramma di con- 
trollo del colore del carat- 
tere visualizzalo al centro 
dello schermo (segnale 
acquisito tramite 

PEEKU97)), In particola- 
re: 

320 II test tende a stabilire se 

sia stato premuto uno dei 
due pulsanti di fuoco vir- 
tuali definiti sulla tastiera. 
In caso negativo il sotto- 
programma si interrom- 
pe. 

360-370 Controllo del colore della 
freccia indicatrice con ac- 
quisizione del segnale tra- 
mite istruzione GET X$. In 
particolare: 

360 Viene acquisito il carattere 

corrispondente al tasto 
premuto. Se non è stato 
premuto alcun tasto, si rici- 
cla, 

370 II carattere alfanumerico 

acquisito viene convertito 
nel corrispondente codice 
ASCII. Il test successivo 
stabilisce se sìa stato pre 
muto uno dei due pulsanti 
di fuoco virtuali; se il test 
ha esito positivo, richiama 
la parte del sotto program- 
ma di controllo del colore 
comune alle due opzioni. 
In caso negativo 11 segnale 
acquisito viene utilizzato 
per il controllo della dire- 
zione del joystick "virtua- 
le 1 ', in maniera non dissimi- 
le da quanto fatto nel pro- 
gramma 2 f per il C64. La 
subroutlne di decodifica 
del segnale viene richiama- 
ta in riga 380 e, se il segna- 
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le è significativo, in riga 
280 ri si ricollega alla par- 
te del programma che si 
occupa di aggiornare la vK 
sualizzazione del piano del- 
la bussola sullo schermo. 
N.B. - Questa caratteristi 
ca, non molto elegante, 
configurazione “a spaghet 
ti", ricca cioè dì salti condì' 
zionati e attivazione di sot- 
toprogrammi, è resa indi- 
spensabile dalle limitate di- 
sponibilità di spazio in me- 
moria * 

600 Vengono trasferiti in me- 

moria RAM (a partire dalla 
locazione 7168) ì dati che 


definiscono i primi 496/ 
8=62 caratteri del set con- 
tenuto in ROM 

630-660 Dati di ridef inizio ne dei ca< 
ratteri “personalizzati". In 
questo caso i caratteri ri- 
definiti non sono consecuti 
vi. 

770 840 Sottoprogramma di deco- 
difica del segnale acquisi 
to. Per ragioni, ancora una 
volta, di economia di spa 
zìo è stato indispensabile 
concentrare la decodifica 
in un unico sotto program- 
ma per entrambe le opzio- 
ni, operando test su en- 
trambi i set di valori acqui- 


siti, rallentando così la ve- 
locità del programma. 

950 Come per il Programma 2 

questa riga non viene mai 
richiamata nel corso del 
programma e potrebbe, 
pertanto, essere tralascia- 
ta. Può essere eseguita 
tramite un comando in for- 
mato diretto RUN95G e ri- 
sultare, però, ulìle nel caso 
in cui si desideri conoscere 
i valori numerici corrispon- 
denti all’ acquisizione dei 
tasti tramite l'Istruzione 
PEEKU97); valori che non 
vengono elencati nel “Ma- 
nuale d'uso del V1C 20". 


programma 1 j»«r VIC 20 

S PGKE5b,2tì:POKES2,28:CLRiCO=2 t rem 33 

10 22 GIU* )":DIMW$ (22} ,SP(7, 2 

) ,SP$(7) :F0RI^1T022 : rem 52 

2u w$ li) -LEFTS IR?,I) : NEXT r FQE I = OTQ 7 : FORJ = 
0TO2iREAD5P(I, J) ; NEXT: READSP? U ) : NEXT 

:rem 200 

30 PQKE3687 9 r 2 5 : PRINT 11 (CLR } " : GGSUBbOQO 

irecn o4 

1^0 PS-RIGHT${"{ 3 SPAZI } "+STR$ (M (NS , 1 )) , 

:recn 18 

1 70 PRINT" (CLR i "TAB (2 ) » [BLU } P*"TAR ( 1 5) " 
[CRN } JS = " ìiem 16 

210 FORI * OTO 7 : PRI NTW$ (5F il, 1 I )TAB{SP (I ,2) 
) M £BLK}"SP5 (I ) :NEXT :rem 168 

250 PQKE371 54,1 27:P= (PEEK(371 37) AND28JORI 
PEEK (371 521AND12B) : PQKE371 54 , 2 55 

:rem 109 

255 FL-U :GOSUB770 : IFFL=1THENGQSUB320 : GOTO 


6020 FORI =XTOX + 7 : AEADJ ; PQKEI , J : NEXT: GOTG6 
010 : rem 101 

6U30 DATA74 48, 16,56,1 24,16,1 6, 1 6, 5o,4Q, ?4 
56,40, 56, 16, 16,16,1 24,56, 1 6; rem 86 
bU4G DATA74 64,0, 0,32,99,254, 99,32,0,7472, 
0,0,4,198,127,198,4,0 :rett 40 

6050 OATA7 480,0, 4, 1 4,12, 144,224, 224,240, 7 
4 88,240,2 2 4,2 24, 1 44,12,14, 4,0 

srem 149 

6060 DATA? 4 96,1 5,7,7,9,48,1 12,32,0,7504,0 
,32,112,48,9,7,7,15,-1 ;rem 74 


programma 2 per VIC 20 

5 PQKE52 , 28 : PGKE56 ,28 : CLR rrctn 230 

10 R$ * " t HOME } ì 22 GIU * ì M : D1MW3 (22 ) ,5P (7 , 2 
) ,SF$ i 7 J : FORI ■ 1 T022 : rem 52 

20 W$ ti) -LEFTS IRS/D i NEXT : FORI * UTO 7 ; FORJ = 
0TO2;READi>P il , JJ : NEXT; READSPS ( I) ! NEXT 


250 :rem 10 

260 POKE793 2 , 3 5+SP : POKEJ86 52 , CO ; POKE7932 , 
35+SF : JS -ABS t (P-100J/4) -7 :rom 46 

260 P$ -RIGHTS (STR$ (P) ,3) ;JS$-R1GHTS 1" 

{ 2 SPAZI }"+STR$(JS) , 2) :rem 158 

290 PRINTW5 ( 1 ) TAB (4) " (BLU ) M PSTAB ( 1 8) " 

{GRN)”JS$ 12 

300 IFOSOSPTHENPRINTWS (SP(QS, 1} }TAB(SP (Q 
S , 2 ) ) " £BLK}"SPS (OS) :rem b 

310 PRINTW$ (SPtSP , 1 ) ) TAB (SP(SP,2) ) 11 { RED } " 
SPS (SP) ;OS=SP:GOTO250 irecn 223 

320 8-PEEK(371 37 ) AND 32 : IFB< 50THENRETURN 

:rem 139 

340 CO^CO+1 3 IFCO-bTHENCD*U freni 82 

34 5 IFCO=lTHEblCQ-2 trem 91 

3 50 FOK E38 652, CO : FORI - 1 TO 50 0 : NEXT : RKTU RN 

: re fn 48 

41 0 DATAe, 4, 9, "NORD", 5. 20, 9, "SUD", 3, 12, 2, 
"OVEST",l 1 ,12,1 4, "EST", 1 , 1 7 , 4, "S-O” 

:rem 229 

420 DATA2 , 9,4 , "M-O* 1 ,12, 8, 13, "N- E", 20, 17,1 
3,"S-E" :rem 122 

770 I?F*1 52THBNSP=0: RETURN :reiD 171 

780 IFP-1 4bTHENSP = l : RETURN :rem 178 

790 IFP»140THENSP'Z; RETURN :rem 172 

800 IFP-28THBNSP-3: RETURN :rero 1 22 

SIO IFP“132THENSP=4; RETURN :rem 168 

B2Q I FP- 1 36THENSP- 5 : RETURN : rem 174 

830 IFP £ 24THENSP = 6 : RETURN :retn 124 

840 IFP»2QTHENSP=7:RETURN :rem 122 

850 FL*1 : RETURN = 1 B3 

6000 FOR I = OTO 5 1 2 : P0KE 7 1 68+1 , PEEK 1 32 7 68+1 ) 
» NEXT irem ^34 

601 0 KEAOX: IFX< QTHENPOKE36 889 t 255 : RETURN 

ireiti 24 


200 

3 0 CO» 2 : POKE36879 , 2 5 : PRl NT" ICLR ì " : GQ5UB60 
0 : PR I NT" {CLR J " TAB { 7 } " { RED | M E N U * " : NS 
= 2 : M$ 1 1 J ” " PEEK 1 1 9 7 ) " tlQ m 39 

80 MU / 1) :M(2,1) =83:M$ (2) c»GET X5" 

:rein 80 

90 FORI ■ 1 TO 2 : PRI NTrtS 4 5+1*2) TAB t J ) " (RED ) 
{RVS j H RIGHT5 (STR$ (I) ,1) w lOFFjlaLK) - H 
M$ ti) ; NEXT :rem 95 

100 PKINTW5 ( 5+NS* 2} TAB t7) " iREDl^MS (NS) ;PR 
1 NTWS 1 5 + VS * 2) TAB ( 7 ) " {BLKf "MS tVS) 

:rem 255 

1 10 Pi =PEEKU 97) : IPPICI SORP 1 - 32THEN 1 70 

223 

1 20 IFP1»39THENVS-NS;NS=NS^1 : IFNS-0THENNS 
«2 :rem 47 

1 30 IFPÌ »63THENVS*NS:NS=NS+1 i IFNS« 3THENNS 
=1 srem 45 

140 GOTOlOQ :rem 95 

170 PS*RIGHT$( M t 3 SPAZI } 11 +STR6 IM ( NS , 1 ) ) , 
2) : FRI NT" lCLR] M TAB 12) " tBLU } P* 11 PS ; TAB l 
1 5) n lGKN)X3-fBLK} 1É :rem 2 27 

210 FORI = OTO? : PRINTW5 tSP(I,l) )TABtSPU/2) 

} S PS (I J 1 NEXT :rem 212 

230 IFNS*2THEN360 ttem 252 

250 F = PE£K (197) : FL= 0 : GOSUR770 : 1 FFL= 1 THENG 
OSUB320 : GOTO 2 50 ;iem 227 

260 POKE3 8 652, CO : POKE 7932,27+JS:PS = R IGHT£ 
l"i 3 SPAZI )"+STR$lP) ,2) : rem 147 

290 FRI NTW $ { 1 ) TAB ( 4 ) * { BLU J M PS ; TAB (18)" 

£gRN|"X$ irem 2 

30 0 IFGSOSPTHENPRINTWS (SPtOS,l } )TAB{SP(0 
s,2) ì « (BEKi"SP$ (OS) ;rem 6 

310 PRINTW§ (SP (SP,1) ) TAB (SP(SP,2) ) " { RED } n 
SPS (SP) ; OS “SP : GOTO230 :rem 221 
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320 IFPOl 5ANDP0 32THENRETURN nero 101 

340 C0=CO+1 : IFCG=8THENCQ^Q :rem 82 

345 IFCO=lTHENCO=2 :rem Si 

350 POKE 3tì 6 52 , CO : FORI - 1 TO 500 : NEXT : RETURN 

:retn 48 

360 G£TX$:IFX$ = n,, THEN36G nero 131 

370 P=ASC(X$) :IFP=130RP-32THENGOSUB34U;GO 
10360 nero 106 

380 FL-0 :GOSUB770 : IFFL*1 THENGQTO360 

nero 180 

390 GOTO280 irem 111 

4 1 0 DATA 6 ,4,9/' NORD 1 ' , 5 , 20 , 9 , " SUD" , 3 , 1 2 , 2 , 
"OVEST" ,11,12,14, " EST" ,1,17,4, "S-0" 

nero 228 

420 DATA2 , 6,4, "N-O 11 ,12,8,1 3 , "N-B 11 , 20 , \ 7,1 
3 , w S-E n nero 122 

600 FORI «0TO496: FOKE7l 68/1 ,PEEK U2768 + I) ; 

NTEXT nero 19? 

6 1 0 READX : I FX< 0THENPOKE3 6 869,255: RETO RN 

tzem 232 

620 FORI s XTOX+7 ; REA DJ : POKEI , J : NEXT;G0TG61 

0 nero 5 

630 DATA7 384,16, 56, 1 24,16,16,16,56,40,739 

2,40,56,1 6,1 6,16,124,56,1 6 nero 36 
640 OATA7400, 0,0, 32,99,254,99,32,0 ,7408 ,0 
,0,4,1 98,127,1 98,4,0 nero 237 

6 50 DATA741 6,0,4, 1 4 , 1 2 , 1 4 4 , 22 4 , 224 , 240 , 74 
32, 240, 224, 224, 144, 12, 14, 4,0: rem 89 

860 DATA74 46,1 5,7,7 ,9,48,1 12,32,0,7464,0, 
32,112, 48,9, 7, 7, 15,-1 nero 28 

770 IFP“90RP=8 7THENSP*0;XS-"W ,i : JS=G : RETLJR 
K : rem 187 

780 IFP = 260RP = bbTHENSP” 1 :X$= B X" : JS^*1 : RETU 
RN :r©m 239 

790 IFP* 1 70RP = 65THENSP“2 : X$ = 11 A 11 : JS *2 : RETU 
rn :rem 214 

800 lF2 m 1 8GRP=68THENSP»3 : X$ = "D" : JS * 3 : RETU 
RN : r em 215 

810 IFP-33ORP=90THEN5PM:XS = "Z lt : JS-4:RETU 
RN nero 232 

820 IFP*4 60RP- 81 THENSP-5: X$-"Q" : JS-6 : RETU 
RN srem 233 

830 IFP= 490RP - 69THEWSP» 6 : X$ = ,T E" ; JS *8 : RETU 
RN : rem 232 

84 0 IFP=34GRP= 67THENSF* 7 :XS""C t ' :JS-10:RET 
URN :r em 9 

850 FL« 1 : RETURN ;rem 183 

950 FRI NT" (CLR } " : FORI * 1 TO 1 000 : PRI NT" 

{H0ME|"RIGHT$ P { 4 SPAZ I ) " +STR6 ( PEEK ( 

1 97) ) ,3) : NEXT nero 27 
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dì A. Motta 


Questo progr«uni è la ri elabo- 
razione della prima versione lat- 
ta per il personal ZXS1 ed appar- 
sa sai la rivista Personal Softwa- 
re n. 17 e n. 16* 


R ispetto a tate versione, scritta in 
gran parte in linguaggio macchina 
a seguito della Lentezza del BASIC del 
succitato personal, it programma per il 
C 16 è fatto interamente in BASIC e 
contiene diversi miglioramenti sia dal 
punto di vista grafico che sonoro e di 
gestione del gioco Rimane invariato lo 
schema di gioco del computer ad en- 
trambi t livelli di abilità, mentre, a parità 
di valore fra più mosse possibili, sceglie 
a caso quella da effettuare, mentre nel- 
la prima versione sceglieva sempre l'ul- 
tima, Inóltre, l'Inserimento della mossa 
avviene mediante coordinate (prima Si 
spostava una pedina che lampeggiava 
sullo schermo) ed il computer è in grado 
di stabilire se il giocatore può effettuare 
la mossa successiva o deve passare il 
lurnó. La possibilità di avere a disposi 
zione i colori e il suono rende il tutto 
più interessante. Per i primi abbiamo 
scelto quelli classici del gioco stesso: ne- 
ro e bianco per le pedine, verde per la 
scacchiera. Per quando riguarda il suo- 
no le routine musicali sono situate nei 
DATA dalle linee 10100 in poi. $e a 
qualcuno non dovessero piacere i moti 
vi scelti, può tranquillamente sostituirli, 
variando le note riportate in tali DATA. 
II programma non prevede le istruzioni 
per il gioco, in quanto quest'ultimo è 
diventato tanto popolare che pensiamo 
la maggior parte dei lettori le conosca- 
no. Comunque, per chi ancora ne fosse 
al t’oscuro, ecco una breve spiegazione 
delle regole: si gioca su una scacchiera 
di B x 8 caselle al cui centro sono de po- 
ste, alternate, due pedine di colore 
bianco e due di colore nero. Al turno 
ciascun giocatore de pone una pedina 
del proprio colore, in modo da imprigio- 
nare almeno una pedina avversaria fra 
quella deposta e un'altra dei proprio 
colore, già presente sulla scacchiera. Se 


Elenco variabili utilizzata 


A%<M) 

B%(7) 

e%(M» 


D%(99) 

C 

G 

PC 

PG 

PP 

PA 

$ 

M 

Q 

Q2 

PM 

EV 


Matrice contenente i valori delle caselle delia scacchiera, in 

base ai quali il C16 sceglie la mossa da effettuare 

Matrice contenente le otto direzioni possibili sulla scacchiera 

Matrice contenente la gestione del gioco: 0 - casella libera, 

16 =■ casella con pedina nera, 127 = casella con pedina 

bianca, 9 - bordo della scacchiera 

Matrice che duplica la C%{99), indispensabile per la scelta 

della mossa del C16 al 2* livello di gioco 

Contatore pedine del C16 

Contatore pedine giocatore 

Valore pedine C16 (bianca * 127, nera — 16) 

Valore pedine del giocatore (vedasi sopra) 

Pedina propria 

Pedina avversaria # 

Mossa del giocatore 

Variabile di controllo della validità della massa scelta 
Variabile di scelta mossa C16 al 1* livello 
Variabile dì scelta mossa C16 al 2* livello 
Possibile mossa CI 6 ai 2* livello 
Livello gioco 
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per lì nero e “127" per il bianco. Questi 
valori sono stati intenzionalmente scelti, 
in quanto rappresentano ì codici di tali 
colori (per il bianco alla sua luminosità 


massima) e che, inseriti con opportune 
istruzioni POKE nella matrice di con- 
trollo colore video, colorano le pedine 
alle varie mosse eseguite. 


ciò non è possibile, passa il turno. Le 
pedine avversarie imprigionate diventa- 
no pedine del proprio colore 11 gioco 
termina quando tutta la scacchiera è 
completata oppure nessun giocatore 
può effettuare la mossa. Vince chi alla 
fine della partita ha più pedine del pro- 
prio colore. 

L inizio della gara spetta sempre al ne- 
ro: pertanto, se volete far iniziare la 
partita al vostro CÌ6, dovrete scegliere 
il colore bianco Per quanto riguarda la 
scelta della mossa il computer risponde 
in circa 15 secondi al 1* livello di gioco 
ed in un tempo variabile dai 30 ai 120 
secondi al 2* livello, in base alle even- 
tuali posizioni da analizzare. 

Si noti, infine, che i valori che identifica 
no le pedine sono rispettivamente “16" 

Othello versione per C16 

102 REM VARIABILI INIZIALI 

103 REM 

104 REM 

110 DIMA* [99) ,BI<7) ,C*(99) ,D%(99) 

120 FORI - QTG7 : READ3% ( I ) : NEXT 
1 30 FORI - 1 TQ4 : FQRJ = 1 T08 : RE ADX : Y= I * 1 0 + J 
140 A% ( Y) -X: A% ( ( 4-1 ) *20+Y+1 0) =X: NEXT: NEXT 

150 M$ = " { HOME } { 22 GIU 1 } ” : DF = 3 1 72 : DC=2 1 4 8 

160 N$ = "{ 37 SPAZI }" 

170 VOLÈ 

200 REM 

201 REM INIZIO GIOCO 

202 REM 

203 REM 

204 REM 

210 PORI *0TO99 : C% ( I ì - 0 : NEXT 
220 FORI - OTOB :C% (I) a 9:C%(I+9Q) =9: NEXT 
2 30 FORI * T TOS :C%(I*Ì0) ^ 9 : C I ( I M 0 + 9 ) = 9 : NEX 
T 

240 C% (44) =1 6:C%{45) =1 27:C%(54) =1 27;CI(S5 
) =1 6:G«2:C-2:PG-16:PC=0 6 
250 COLORO, 6, 5:COLOR4 f 6, 5 

260 PRINT” {CLRfCON QUALE COLORE GIOCHI? ( 
B/N) " 

270 GETZS : IFZ$<> ,T B |l ANDZ$<> fl N H THEN2 70 
2B0 IFZ$ = "fì' , THENPG=T 27:ELS£PC = 1 27 
290 PRINT "LIVELLO GIOCO? 0/2}" 

295 GETZ$ : I F3$ O " 1 " ANDZ$ <> " 2 "THEN2 95 

296 LV = ASC ( Z$ ) - 4 8 

300 PRINT" (CLR}";TAB(5) ”0 T NELL 0 " ; T A 
B ( 4 4 ) "{ 1 5 E}» 

310 PRINTTAB(22T i, 1 2 3 4 5 6 7 8",TAB(21> 
Tr (<A>3 C[<R>1C[<R>JC[<R>]C[<R>1C[<R>1 
C[<R>]C [<R>lCf<S>] 11 
, 320 FORICI T07 : PRINTTAB (20)CHRS (64-11? ; 
------- Z M ;CHR${64+I) 

330 PRINTTAB (21)^1 <Q> ] C+C+C+C+C+C+C+C 
[<W> ] rt : NEXT 

340 PRINTTAB (20) M H- - - * - * - - -H" f TAB 
(21 ) 11 [<2>]C(<E>lCf<E>]C [<E>]C[<E>]C 
[<E>]C[<E>TC t<E>JCI<X>] ,É 
350 PRINTTAB ( 22} "1 234567 8":P0KE35O 
0,31 : POKE 3502, 81 

360 POXE3580 , 81 SP0KE3582,81 :POKE2478, 1 27 : 
POKE2556, 1 27 

370 PRINT" ( HOME } ( 5 GIU* } n ; " CI 6 Q ="|C,T 
AB(2Q1)"TU( 2 SPAZ I }Q = ■; G : POKE2253 r P 
C : PQKE2 4 53, PG 

380 PRINTTAB < 241 ) "LIVELLO* ";LV 


900 IFPG=-1 27THEN2000 

1000 REM 

1001 REM 

1002 REM MOSSA DEL GIOCATORE 

1003 REM 

1005 RES TORE (10100) 

1006 READX , Y : IFX®GTHENl 005 

1007 SOUND 1 ,X,Y 

1010 PRTNTMS?" INSERISCI LA TUA MOSSA (LET 
/NUM) { 5 SPAZI)" 

1 020 GETZ $ : I PZ S < n A "OR2 $ > " ti " THEN 1 006 
1 030 S* ( ASC ( Z$ } - 64 ) *10 

1035 READX ,Y ; TFX* 0THENEÉ5TORE ( 1 01 00) S GOTO 
1035 

1036 50UND1 ,X,Y 

1040 GETZS:IFZS< I, 1 "OR2$> M 8"THENl 035 
1050 S=S+ASC (Z$)-48:PA*PC:PP*PG:M-0 
1070 PRINTM$;N$ JGOSUB7000: IFMO0THEN1 1 00 
10 80 PRINTMS;* 1 MOSSA NON PERMESSA * RIPETI 

14 

1 090 FORI » ì 0 0 0TO7 Q0STEP - 2 5 : SOUNDl ,S,5?NEX 

T J GOSUB6 90 0 : GOTO 1 005 

1 1 00 P-S :N = 1 : GOSUB6SOO : GOS UB69G 0 : GOSUB6 00 
0 

1110 C^C-N+1 : G*G+ N : I FC+G= 6 4 THEN 4 000 
1120 GOSUR6700 

2000 REM 

2001 REM 

2002 REM MOSSA C16 

2003 REM 

2004 REM 

2010 PP=PC : PA= PG : PRINTMS ; "PREMI UN TASTO 
PER LA MIA MOSSA" 

201 5 FORI = 6 5DT08 50STEP50 :SOUND1 , 1 , 5:NEXT 
2020 GETZS : I FZ $* " "THEN20 2 0 

2 030 PRINTMS ;N$ :ONLVGOSUB2500, 30 00 
2 04 0 IFQOOTHEN2) 00 

2050 PRINTMS; "PASSO IL TURNO l 22 SPAZI}" 
2060 FORI = l 000TD7O0STEP-2 5: SOUNDl , I r 5:NEX 
T : GOS UB 6 9 0 0 : G0T02 200 
2100 PRINTMS; "LA MIA MOSSA E* " ? 

21 1 0 PRINTCHRS (INT{Q/10) +64) ;CHR$ (Q-INT (Q 
/IO) *1 0+48) 

21 1 5 FQRI = 7OOtO95OSTEP50:SOUND1 , 1 , 5 : NEXT 
21 20 S-Q:P-Q:N"1 : GOSUB6 800 : GOSUB6 900 : GOSU 
B6000 

21 30 C-C+N:G=G-N+1 : GOS UB 6 700 : I FC+G=64THEN 
4 000 

2200 REM 

2201 REM 

2202 REM CONTROLLA SE IL GIOCATORE 

2203 REM PUÒ * MUOVERE 

2204 REM 
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2205 REM 

221 0 M=Q : PF-PG ; PA*FC : FORS=1 1 T088 ; G0SUB7OQ 
0 : TFMOOTHEN2 400 
2215 NEXT : I FQ e QTHEN4 000 

2220 PRINTM$ m PASSI IL TURNO” ! SOUNDT ,516,6 
0 

2230 PORI =ÌTQ2:GOSUB690G:NEXTi GOTO 2000 
2400 GOTO! 000 

2500 REM 

2501 REM 

2502 REM SUBROUTINE SCELTA MOSSA 
250 3 REM C1É AL T LIVELLO 

2504 REM 

2505 REM 

2520 Q*0:FQRS=ìlTQ88sIFCl (S) O0THEN2 590 
2 530 IFAl ( S ) <A% [Q ) THEN2 590 
2 560 M=0 : GOSUB70 ì 0 

2570 IFA% (M) =A% (Q ) ANDRND ( 0) < * 5THENQ=M 
2500 IFA% (M) >A% (Q)THENQ=M 
2590 NEXT: RETURN 

3000 REM 

3001 REM 

3002 REM SUBROUTINE SCELTA MOSSA 
300 3 REM CI 6 AL 2 LIVELLO 

3004 REM 

3005 REM 

301 0 FGR1-11T088 :D% (I) =CI (I) : NEXT 
3020 Q2- - 9 : PM-0 :FORK- 1 1 TOB8 ; IFC% (K) < >0THE 
N31 30 

3030 5=K : M=0 : GGSUR7Q 1 0 : I FM=0THEN 31 30 

30 50 POR I = 0TO7 : P -H+fll ( I ) : I FC * ( P) < >P ATHEN 3 

100 

3060 P=P+S% 1 1 ) sIFCl (P) = P ATHEN 3060 
3070 IFC% (Pì<> PPTHEN3 1 00 
3080 P^P-5% ( I ) :C% (P) »PP ; I FF=MTHEN3 1 00 
3090 GOTO308Q 

3100 NEXT : Mi =M: PA=PC ; PP = PG : Q-0 : GOSUB2 500 
3105 I FQ- 0THEN3 140 

3110 M=A% (Mi ) - A% (QJ : IFM>Q2THENQ2=M: PM^Ml 
3120 FORICI! T088:C* (I) -D%(I) ; NEXT 
3130 PP=PC: PA=PG : NEXT: Q=PM: RETURN 

31 40 FORI = 1 1 T088 :C% (I) =D% ( I ) : NEXT 
31 50 PP=PC:PA=PG:Q=Ml : RETURN 

4000 REM 

4001 REM 

4002 REM FINE PARTITA 

4003 REM 

4004 REM 

4020 IFG>CTHENPR1 NTM$ ; " BRAVO - HAI VINTO 
"NS 

4030 IFC-GTHENPRINTMS ; " STAVOLTA SIAMO PA 

ri n m 

4 04 0 IFOGTHENPRI NTM$ ; " H G{ 4 SPAZI }V I 
N T O 1 I ■ ,t N$ 

4 0 50 FOR I ” 1 TO 2 : RESTORE (102 00) : DO : READX,Y : 
SOUND 1 ,X,Y 

4 060 LOOPUNT ILX= 0 : NEXT : GOS UB 6 900 
4070 PRINTM$ "GIOCHI ANCORA? {S/N}"N$ 

4080 GBTZ$ ; IFZ$= "S "THEN20Q 
4090 IFZ$<> "N"THEN4 0 00 
4100 PRIN"C I A 0 1 " : END 

4500 PRINTMS?"{RVSjH 0{ 4 SPAZlJV I N T O 
[ I I {OFF}" 

6000 REM 

6001 REM 

6002 REM AGGIORNAMENTO SCACCHIERA 

6003 REM 

6004 REM 

6010 FORI=OT07:P=S+B% (I) : IFC% { P] < > PATHEN6 
100 

6020 P«P+B%(I) : I FC % ( P ) -PATHEN602G 
6030 IFC% CP) OPPTHEN6100 
6040 P-F-B%(I) : IFP^STHENSl 00 


6050 GOSUB6 8 0 0 : C 1 ( P ) =PP:N“N+1 :GOT06040 

6100 NEXT : C % { S } =PP 3 RETURN 

6700 PRINT" {HOME} { 5 GIU’H 8 DES} 

{ 3 SPAZI} { 3 SIN J "C: PRINT" {HOME} 

{ 1 0 GIU 1 } { 8 DES j { 3 SPAZI} 

[ 3 SIN} "G: RETURN 

6800 D e INT { P/l 0 ) *80+2* { P - { INT(P/1 0) *10)) 
6910 PQKB (DF+D ) ,81 :POKE(DC+D) ,PP:RETURN 
690 0 FORI - 1 TG1 000 : NEXT : RETURN 

7000 REM 

7001 REM 

7002 REM SUBROUTINE CONTROLLO 

7003 REM VALIDITÀ MOSSA 

7004 REM 

7005 REM 

700 6 I FC % [ S ) < > OTHENRETURN 

701 0 FORI “QT07 : P = S+B% { I) : IFC% (F) OPATHEN7 

0 50 

7020 P=P+B% { I) : IFCfc(P) -PATHEM702Q 
70 30 IFC% ( P) < > PPTHEN70 50 
70 4 0 M * S t RETURN 
7050 NEXT : RETURN 

10000 REM 

10001 REM 

10002 REM DATA 

10003 REM 

10004 REM 

10010 DATA -11,-10, -9,-1, 1,9,10,11 
1 0020 DATA9, 2,8, 6,6, 8, 2,9 
10030 DATA2,1 ,3,4,4, 3, 1,2 
10040 DATA 8, 3,7, 5, 5, 7, 3,8 
10050 DÀTA6, 4,5, 0,0,5, 4,6 

101 00 DATA8 34, 1 4, 798, 14,8 3 4,28, 101 5, 1,034 
, 1 4,798,14,8 3 4,28 

10110 DATA854, 14,834,14,810,14,798,14,770 
, 1 4,798, 14,81 0, 1 4 

101 20 DATA798,7, 81 0,7, 834, 14,739,14,1015, 
1,739,28,1015,1 

101 30 DATA739, 7, 770,7, 798,7,81 0, 7, 034, 28 
101 40 DATA854, 14,770, 1 4, 101 5, 1 , 770 , 1 4 , 8T 0 
,14,798,14,770,14,739,28,0,0 
10200 DATASSI ,16,854,16,810,16,1015,1,810 
,8, 1 01 5, 1 , 81 0, 16,739, 16,854, 16,834, 
32 

10210 QATA739, 16, 354,1 6, B34, 32, 739, 16, 834 
,16, 81 0,32 

10220 DATASSI , 1 6 , 854 , 1 6 , 8 1 0 , 1 6 , 1 01 5, 1 , 81 0 
,8,1015,1,910,8 

1 0230 DA TA739, 1 6, 654,16, 834, 32,739, 16,954 
,1 6,934, 1 6, 739, 16, 81 0,40,810,9,0, 0 



SUPEECQMMODORE*® 4/85 • 33 





Dato che dovrete riversare i programmi 
da un nastro a un altro, vi conviene 
riflettere su come organizzare le nuove 
cassette. Un paio di consìgli: prima di 
tutto è conveniente separare i program 
mi di gioco, di utilità, di grafica e di 
suono, suddividendo eventualmente 
queste categorie in ulteriori sottoinsie- 
mi* Inoltre è buona norma registrare 
nella prima parte delle cassette (usate 
al massimo delle C60!) t programmi di 
uso più frequente. 

Una volta che avete deciso quali pro- 
grammi trasferire sul nastro-destinazio- 
ne (che deve essere posizionato alla fine 
dell'Indice di Cassetta) scrivete su un 
foglio dì carta i loro nomi neirordine in 
cui Li volete copiare. 

A questo punto inserite nel registratore 


Il nastro-sorgente e caricate il primo 
programma da riversare. Inserite quindi 
Il nastro-destinazione, azzerate il conta- 
tore ed effettuate il SAVE. 

Scrivete ora accanto al nome del pro- 
gramma la sua lunghezza (cioè il nume- 
ro segnato dal contatore dopo il salva- 
taggio), Ripetete questa procedura per 
tutti \ programmi che volete registrare 
sul nastro-destinazione, facendo atten- 
zione ad azzerare il contatore dopo ogni 
SAVE. 

Terminata questa operazione (la più 
lunga e noiosa) dovete aggiungere sul 
foglio una seconda colonna di numeri 
accanto a quella contenente la lunghez- 
za dei programmi: questi nuovi numeri 
rappresentano la posizione dì ogni pro- 
gramma. Essi vanno calcolati nel modo 


di P»Ff, Pciilty 

trad e adatt. 

di F. Sarctn» 


Se usate II rcfllitratorc, ecco un 
breve programma che può eie- 
ter vi ed organizzare le voetre 
cifvvtte, creando un Indie# In- 
serito direttamente all’inizio del 
n*»tro. Per CM e VIC 20, 


S e siete stanchi di accumulare pez- 
zetti di carta contenenti gli elenchi 
dei programmi registrati su ogni nastro, 
"Indice dì Cassetta" vi offre una valida 
alternativa. Questo programma crea un 
indice, che viene registrato all’ inizio di 
ogni facciata di ciascuna cassetta e che 
contiene i nomi dei programmi e la loro 
posizione. 


Fino « 30 programmi per 
nastro 

Se avete dato un’occhiata al listato, 
avrete notato che è molto breve. Tutta- 
via, prima di iniziare a digitarlo vi consi- 
gliamo di leggere le istruzioni contenute 
in questo articolo, in modo da sapere 
come si usa il programma. C'è da com- 
piere anche un piccolo lavoro supple- 
mentare, ma vedrete che ne vale la pe- 
na. Ora potete cominciare a battere il 
listato sul vostro C64 o sul vostro VIC 
(con o senza espansione): fermatevi, 
però, quando arrivate alle Istruzioni 
DATA (a partire dalla lìnea 39). Queste 
istruzioni dovranno in futuro contenere 
ì nomi e le posizioni (date dalla lettura 
de! contatore sul registratore) dei pro- 
grammi. Potete notare che i nomi (PRG 
01, PRG 02, ecc.) e le posizioni (000) 
compaiono a coppie separate da una 
virgola e che le parole NOME, POSIZ. 
sono usate per separare ogni insieme di 
otto coppie. Potete catalogare fino a 30 
programmi su una facciata di casset- 
ta. 

Continuate adesso a digitare il prò 
gr anima fino in fondo e salvatelo a il' ini 
zio di una cassetta vuota. Battete RUM, 
correggete gli eventuali errori di battitu- 
ra e risalvate il programma (sempre aì- 
rinìzìo del nastro). D'ora Ln poi chiame- 
remo questa cassetta "nastro-destina- 
zione'*, in quanto sarà quello su cui sal- 
verete 1 vostri programmi: le cassette 
da cui li caricherete le chiameremo “na 
stri-sorgenti”. 
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seguente: segnate 000 accanto a! primo 
nome della lista, e per ogni programma 
successivo calcolate la sua posizione, 
sommando lunghezza e posizione del 
precedente. Vediamo un esempio: 


NOME 

LUNCH. 

POSIZ. 

Speedscript 

035 

000 

Sintetizzatore 

012 

035 

Disegnatore 

027 

047 


Ora riavvolgete il nastro-destinazione, 
caricate l'Indice di Cassetta e listate le 
istruzioni DATA (battete U3T 39-) 
Sostituite a PRG 01, PRG 02, ecc, (uti- 
lizzando il tasto INST /DEL per cancel- 
lare o inserire i caratteri necessari), e 
ai corrispondenti 000, i nomi e le posi- 
zioni dei programmi registrati sulla cas- 
setta, ricopiandoli dal vostro foglio. 
Completata questa operazione riavvol- 
gete il nastro-destinazione e risalvate 
Tlndice di Cassetta modificato. Ora bat- 
tendo RUM potrete osservare sullo 
schermo S'elenco dei programmi pre- 


senti sulla cassetta e le loro rispettive 
posizioni. 

Aggiornamento 

Per aggiornare l’Indice quando dovete 
registrare un nuovo programma sulla 
cassetta seguite la seguente procedu- 
ra: 

1. Inserite il nastro-destinazione e 
caricate l'Indice di Cassetta. 

2. Azzerate il contatore. 

3. Leggete dall 'Indie e il nome del 
l’ultimo programma salvato e la sua po 
sizione, 

4 Fate avanzare velocemente il na 
stro fino a tale posizione. 

5. Verificate il programma; con que- 
sta tecnica il nastro viene posizionato 
alla fine del programma (ignorate N 
messaggio ?VER1FY ERROR). 

ó. Prendete nota del numero indica- 
to dal contatore. 

7, Rimuovete il nastro-destinazione 
senza riavvolgerlo. 

8. Inserite il nastro-sorgente e cari 
tate il programma da trasferire. 



9. Rimuovete il nastro-sorgente. 

10. Inserite il nastro-destinazione sen- 
za riavvolgerlo. 

1 1 . Salvate il programma, 

12. Riavvolgete il nastro- d est inari o 
ne 

13. Caricate l'Indice dì Cassetta. 

14 Listate le istruzioni DATA. 

15. Sostituite al posto giusto il nome 
del programma salvato 

16. Sostituite allo 000 successivo la 
posizione (il numero che avevate anno- 
tato al punto 6), 

17. Ria v volgete il nastro-destinazione, 

18. Salvate l’Indice di Cassetta modi- 
ficato. 


Indice di cassetta 


23 

F0RX=lTO8 


:rem 

237 

per VIC 20 e €04 


24 

READA? 


: rem 

231 



25 

IFA$®**- 1 "TKEN33 


: rem 

207 



26 

READBS 


:rem 

234 

ì SYS65517 i rem 

56 

27 

1 "THEN33 


: rem 

210 

2 TFPEEK (761 ) * 4 OTHENHTS ■ " f WHT 1 " : GOTO 4 


28 

PRINT ASTAB {17)0$ 


: rem 

82 

: rem 

153 

29 

NEXT 


: rem 

1 70 

3 MT$- H {BLUl" : rem 

1 52 

30 

PRINT" {GIU'H 3 SPAZI }{ RVS} PRKMI 

UN TA 

4 FRINTMT$"£CLR}{ 10 CIUM! 3 SPAZI }{RVS} 


STO" 


: rem 

2 

INDICE! 2 SPAZI} CASSETTA" :rem 

29 

31 

GETPS : I FPS * " "THEN31 


: rem 

9 

5 FORO* 1T02 000 :NEXT i rem 

185 

32 

IFA$ < > ”- 1 "THENl 8 


: rem 

13 

6 PRINT r, {CLR} [ 2 GIU'H 3 SPAZ I H RVS } INDI 

33 

PRINT" {GIU * } { RVS } * * * FINE [ 2 

SPAZ I } E LE 

CE CASSETTA ":FRINT n I GIU 1 } PER USARE I 

IN 


NCO * * * " MT$ 


: rem 

243 

DICE: " : rem 

174 

34 

PRINT" { HOME } { 20 GIU'}ANCORA 

(S/U)" m 

7 PRINT" {GIU * } 1 -AZZERA IL" :rem 

217 


NPUTANS 


i rem 

44 

8 PRINT"{ 3 SPAZ I } CONTATORE 11 :rem 

184 

35 

IFAN$=*"S”THEN3B 


: rem 

24 

9 PRINT" {GIU 1 } 2 -TROVA NELL'ELENCO" 


36 

IFAN$O n N"THEN34 


: rem 

77 

;rem 

14 

37 

END 


: rem 

65 

10 PRINT" ( 3 SPAZI} IL PROGRAMMA E LA" 


38 

RES TORE : GOTO 1 8 


: rem 

107 

: rem 

63 

39 

DATANOME, POSI Z* 


: rem 

164 

11 PRINT" £ 3 SPAZI} SUA POSIZIONE" 


40 

DATAPRG 01 ,000, PRG 

02, 000, PRG 

03, 

000 

i rem 

220 




: rem 

235 

12 PRI NT" £GI0 ’ } 3 -FAI AVANZARE IL" 


41 

DATAPRG 04, 000, PRG 

05, 000, PRG 

06, 

000 

: rem 

98 




: rem 

245 

13 PRI NT" { 3 SPAZI} NASTRO FINO AL" 


42 

DATAPRG 07, 000, PRG 

08,000 

: rem 

197 

: rem 

197 

43 

DATANOME, POSIZ, 


: rem 

159 

7 4 PR1NT"£ 3 SPAZDPUNTO ESATTO" : PRINT 

m 

44 

DATAPRG 09, 000, PRG 

10, 000, PRG 

n. 

000 

{ 3 SPAZI] USANDO fRVSÌF.FWD" : rem 

21 6 




; rem 

24 5 

15 PRINT" {GIU ' } 4-FERMA IL NASTRO ED" 


45 

DATAPRG 12, 000, PRG 

1 3, 000, PRG 

14,' 

000 

; rem 

9 




: rem 

246 

16 PRINT " { 3 SPAZI} ESEGUI IL f RVS } LOAD 

i" :P 

46 

DATAPRG 1 5,000, PRG 

16,000 

: rem 

199 

RI NT" (Gl U f } { 3 SPAZI) {RVS} PREMI UN 

TAS 

47 

DATANOME, POSIZ* 


: rem 

163 

TO" :rem 

154 

43 

DATAPRG 17, 000, PRG 

18, 000, PRG 

19, 

000 

17 GETANS :IFAN$- rtT, THENl? ; rem 

1 43 




: rem 

8 

18 PRINT" {CLR}{ 2 GIU 1 M 3 SPAZI } f RVS } IND 

49 

DATAPRG 20, 000, PRG 

21 ,000, PRG 

22,i 

00 0 

ICE CASSETTA" : PRI NT" {GIU ' } QUESTO NA5TR 




: rem 

247 

O" :rem 

21 7 

50 

DATAPRG 23,000, PRG 

24,000 

: rem 

192 

19 PRINT"CONT IENE I SEGUENTI" :rcm 

61 

51 

DATANOME , POS I Z . 


: rem 

158 

20 PRI NT "PROGRAMMI NELLA" : PRI NT "POS 1ZIGNB 

52 

DATAPRG 25, 000, PRG 

26, 000, PRG 

27,i 

000 

INDICATA: {GIU 1 }" :rem 

1 60 




: rem 

0 

21 RE ADA $ : READB$ : rem 

160 

53 

DATAPRG 28, 000, PRG 

29, 000, PRG 

30,i 

0G0,- 

22 PRINTA$TAB(7 5) R$ : PRINT trem 

17 


1 


: rem 

139 
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QUALCOSA DI SUPER, DI INEDITO, 

DI IRRESISTIBILE 




La softrivista con i giochi 
esclusivi per Commodore 64 
e Spectrum 48K 
importati dall’Inghilterra, mai 
presentati in Italia. 

Una sfida Jackson al già visto, 
al già fatto, al... già registrato. 


Ogni mese in edicola 

• la softrivista con: 

6 pagine di commento 
al supergame presentato; 

4 pagine di rubriche; 

22 pagine di listati scelti tra 
il meglio di quanto pubblicato 
in fatto di grafica, giochi, utility. 

• una cassetta originale con 
il SUPERGAME del mese 

Tutto a sole 10.000 lire 


È IN EDICOLA 
JACKSON SOFT 
SERIE ORO 


Corri in edicola, il vero gioco comincia solo adesso 
e se sei davvero bravo partecipa alla “sfida ai campione”, 
utilizzando il tagliando che troverai sull’ultima pagina 
di copertina di ogni numero. 

i 



GRUPPO 

EDITORIALE 

JACKSON 




dì G. Ped* 

trad. e adatt, 

di F. Sarc ina 




VI è mai capitato di crear* un di- 
segno o un grafico ad alta riaolu- 
lione e desiderare di riprodurlo 
su carta con la vostra stampan- 
te? Questo programma vi per- 
mette di fario. Ne presentiamo 
due versioni, una per il C64 e 
una per II VIC; quest 'ultima ri- 
chiede la cartuccia Super Espan- 
der. Entrambe le veraioni sono 
compatibili con le stampanti 
Commodore 1525 (ma non 
1526), MPS 80I e Seikosba GP- 
100VC 

S ia il VIC 20 che ìl C64 vi consentono 
di creare immagini ad alta moluzio 
ne sullo schermo del vostro televisore 
E facile fare disegni “artìstici" con le 
cartucce Super Expander per VIC o 64. 
oppure con altri programmi di grafica. 
Tuttavia la maggior parte di questo sof- 
tware non possiede un'opzione che vi 
permette di riprodurre su carta i vostri 
capolavori. A meno che vogliate lascia- 
re acceso il computer per un tempo in- 
definito, rimine iando anche ad usarlo 
per altri scopi, le vostre creazioni avran- 
no breve vita! 

Entrambe le versioni di questo pro- 
gramma funzionano con la stampante 
Commodore 1525 od altra compatibile, 
ad eccezione della 1526 e della MPS 
802 

Trasferimento dei bìt 

Il programma di stampa dello schermo 
ad alta risoluzione, che d’ora in poi chia- 
meremo per brevità schermo hi res, è 
progettato per trasferire alla stampante 
Vìn formazione contenuta nei bit della 
memoria di schermo. La 1525, quando 
si trova in modo grafico, può accettare 
solo sette bit di informazioni per volta 
(il bit piu alto del byte deve sempre 
essere settato, cioè valere 1), mentre la 
memoria di schermo è composta ovvia- 
mente da byte di otto bit. Ciò significa 
che, prima di poterti mandare alla 
stampante, questi byte devono essere 
“spezzettati" nei singoli bit. U trasferi- 
mento dell' in formazione è ulteriormen- 
te complicato dal fatto che nel C64 lo 
schermo hi -res può essere situalo in di- 
verse aree di memoria. 


Il programma legge i dati della memoria 
un bit per volta, iniziando dall angolo in 
basso a sinistra delio schermo (ogni bit 
corrisponde a un pixel, cioè ad un punto 
dello schermo). Raccolti sette bit. questi 
vanno a formare un byte dì informazio- 
ne, che viene inviato alla stampante. Si 
passa quindi al bit più a sinistra della 
riga superiore e così via su per lo scher- 
mo. Una volta letti i sette bìt dell’angolo 
in alto a simstra eI programma toma in 
basso e legge Lottavo bit da sinistra, il 
nono e via di seguito fino ad accumulare 
altri sette bit da inviare alla stampante 
Si prosegue cosi ciclicamente dal basso 
all'alto fino a completare la lettura dello 
schermo Dato che la stampa avviene 
da sinistra verso destra, mentre la lettu- 


ra è effettuata dal basso verso l'alto. 
l'Immagine sulla carta risulta ruotata di 
90 gradi rispetto a quella sullo schermo. 
Entrambe le versioni del programma so 
no scritte in linguaggio macchina, anche 
se il listato è in BASIC; le prime lìnee 
memorizzano la routine, che sì trova 
sotto forma di istruzioni DATA, in una 
area libera della RAM La parte in BA 
SIC consente anche di scegliere se effet- 
tuare la stampa in larghezza normale o 
doppia, e nella versione del VIC proteg- 
ge il linguaggio macchina da un'even- 
tuale cancellazione da parte di pro- 
grammi BASIC. Per un corretto funzio- 
namento raccomandiamo di caricare e 
far girare questo programma prima di 
caricare ìl software che crea V immagine 
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in alta risoluzione. 

Stampa e selezione della 
larghezza 

La stampa delio schermo hl-res viene 
comandata con SYS 3584 (per il VIC) 
oppure SYS 52224 (per il 64). La SYS 
può essere battuta direttamente per 
stampare il disegno correntemente sullo 
schermo, oppure può essere inserita in 
un programma che crei un disegno. Ri- 
cordatevi però che 11 linguaggio macchi* 
na deve venir memorizzato prima deh 
lesecuzione della SYS e che la stam- 
pante deve essere accesa e col legata al 
computer. 

In entrambe le versioni la larghezza deh 
la stampa può essere selezionata, oltre 
che all'Inizio tramite la parte BASIC del 
programma, anche in seguito per mezzo 
di un istruzione POKE, Fer l'esattezza 
con POKE 2 f 1 si ottiene la larghezza 
normale e con POKE 2, 2 quella dop- 
pia. 

Note per il VVC 

La versione del VIC è progettata per 
venire usata con la cartuccia Super 
Expander. Il comando GRAPH1C 2 di 
questa espansione crea uno schermo 
hi-res di 3200 byte, a partire dalla loca- 
zione 7680 (SI EOO). Con I 3Kbyte addi- 
zionali di RAM fomiti dalla Super 
Expander la memorizzazione dei prò* 
grammi BASIC inizia dalla locazione 


1024 ($0400). La linea 5 del program- 
ma riserva due pagine (512 byte) di me- 
moria per il linguaggio macchina, subito 
prima dell'area utilizzata dallo schermo 
hi-res. Ciò significa che il linguaggio 
macchina inizia dalla locazione 3584 
(J0E00), e che l'area 1024 3583 
($0400 DOLSODFF) è disponibile per 
i programmi BASIC. Questi 2,5Kbyte 
non sono certo molti, ma possono au- 
mentare se avete la possibilità di colle 
gare al vostro VIC, assieme alla Super 
Expander, anche un'espansione RAM 
da 8Kbyte o più. In tal caso i 3Kbyte 
di RAM della Super Expander non ven- 
gono piu usati per il BASIC, ma posso- 
no continuare a contenere la routine in 
linguaggio macchina, che viene sempre 
chiamata con SYS 3584. Tuttavia in 
questo caso è necessario rimuovere dal 
programma la lìnea 5, che fissa a 3583 
(SODFF) il limite delia memoria BASIC); 
si otterrò altrimenti il messaggio? OUT 
OF MEMORY ERROR In questa confi- 
gurazione lo schermo hi res creato dal 
cornando GRAPHIC 2 occupa i 3200 
byte a partire dalla locazione 4096 
($1000), e la RAM disponibile per il 
BASIC inizia da 8192 ($2000) e prose- 
gue fino alla fine dell'espansione di me- 
moria collegata. 

Noie per il C64 

Nella versione del C64 11 linguaggio 
macchina risiede nell'ultima parte del 
blocco di RAM che inizia dalla locazione 


49152 ($C000), e quindi non inter- 
ferisce con la memoria BASIC* che oc 
cupa invece l'area 2048-40959 
{$OSOO-.OOL-$9FFF). Ciò rende la 
routine compatibile con la Super 
Expander 64, ma non col programma 
DOS wedge di gestione del disk drive, 
che va ad occupare proprio la stessa 
area. 

Questa routine è progettata per stam 
pare lo schermo hi-res mentre esso ap 
pare sul video; in pratica l'istruzione 
SYS 52224 va inserita in un program 
ma che crea un disegno ad alta risolu- 
zione e lo mostra sul videe». È comunque 
possibile effettuare la stampa anche 
quando lo schermo è a bassa risoluzione 
(cioè quando vengono visualizzati nu- 
meri e lettere e compare il cursore): è 
il caso che si presenta se volete battere 
la 5YS direttamente da tastiera, In tal 
caso, però, è prima necessario effettua 
re una POKE nella locazione 900. asse 
gnando ad essa il valore del byte alto 
del l'indirizzo iniziale dello schermo hi- 
res, La stampa viene poi comandata 
tramite una SYS alia locazione 
52224+32, cioè 52256. Questa nuova 
SYS salta la parte iniziale della routine* 
che serve a determinare l'area di me- 
moria occupata dello schermo hi-res 
Facciamo un esempio per chiarire le 
idee. Se il vostro schérmo hi-res inizia 
dalla locazione 57344 ($E00O), per 
stampare ciò che vi è disegnato battete: 

POKE 900, 57344/256 : SYS 52256 
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5 FOKE56, 1 4 :CLR trem 123 

6 INPUT" (CLR J ( BLU J LARGHEZZA (1 2)";WI$:IF 

VAL £WI $ ) < 1 QRVAL (W£ $ ) >2THEN6 treni 224 

1 PQKE2 „ VAL (HI $ 1 ;rem 188 

! 0 I-3SS4 tPRINT" f CLR} MEMORI ZZAZ IONE" :PRIN 
T "LINGUAGGIO MACCHINA" : rem 193 

20 READAt I FA- 2 56THEN4 0 treni 54 

30 POKEI f ArI"I + l :CH-CH+A : GGTO20 treni 123 
40 IFCH0 352 92THENPBINT" {GIU 1 1 ERRORE NELL 
E": PRINT" ISTRUZIONI DATA" : END ; rem 153 
50 PRINT" (GIU 1 }SYS 3584 PER INIZIARE LA C 
GPIÀ" : NEW treni 121 

3584 DATAI 69, T6,M1,1 32, 3,169,0 treni 44 
3591 DATA32, 1 89,255,1 69,4, 1 70,160 

:rem 154 

3598 DATA255, 32, 1 86,255, 32,192,255 

tram 212 

3605 DATAI 62, 4, 32, 201 ,255, 1 76, 3 treni 34 
3612 DATA76, 34, 14,76, 5,15,169 treni 207 
3619 DATA 8 , 32,210, 255, 169, 1 3, 32 treni. 42 
3626 DATASI 0,255,1 62, 0,1 69, 1,141 : rem 82 
3633 DATAI 04, 1 5, 169,0, 1 41 , 105, 15; rem 7B 
364 0 DATAI 69, 0, 1 41 , 1 06, 1 5, 1 69, 1 59 

; rem 14 5 

3 64 7 DATAI 41 , 107, 1 5,32,22 5,255,208 

: rem 1 90 

3654 DATA3,76, S, 1 5, 1 38,72, T 52 ;rem 204 
3 661 DATA72,32, 14, 1 5, 1 04 , 1 68 , 1 04 : r em 84 
3 668 DATAI 70,173,111,15,45,109, 15 

treni 142 

3675 DATA240, 72, 173, 108, 1 5,13,1 04 

treni 131 

3682 DATAI 5,141 , 7 08 , 1 5 , 76 , ì 1 6 , 1 4 : rem 90 


3 68 9 DATAI 73,104,15,73,255,45,108 

treni 1 54 

3696 DATAI 5,141, 100, 15, 14,104, 15: rem 85 
370 3 DATAI 73,104,15,201, 128,240,20 

: rem 171 

3710 DATA24, 173,105, 15,105,1 ,141 ;retn 71 
3717 DATA 105,15, 173, 106,15, 105,0; rem 78 
3724 DATAI 41 ,106, Ì5 f 76,66, 14, 173 treni 94 
3 731 DATAI 08, 1 5, 9, 1 28 , 224 , 22 , 1 44 : rem 88 
3739 DATATO, 1 73, 1 08, 1 5,41 ,63,9 treni 249 
374 5 DATAI 28, 1 4 1 , 1 08 , 1 5 , 1 42 , 1 1 3 , 1 5 

irei 183 

3752 DATAI 66 , 2 , 1 4 2 , 11 2 , 1 5, 168, 32 treni 87 
3759 DATA 2 7 0,255,152,206, 7 12, 1 5,209 

:r etti 237 

3766 DATA 2 46,174,11 3# 15, T 6 9 , ! ,141 

t rem 146 

3773 DATAI 04,15, 169,0, 141 ,108,15; rem 86 
3780 DATA5 6 ,173,105,15,233,6,141 : rem 90 
3787 DATAI 05, 1 5, 1 73,1 06, 15, 233,0trem 87 

3 794 DATAI 41 , 1 0 6 f 1 5 , 206 , 1 07 , 1 5 , 1 73 

trem 189 

3 801 DATAI 07,1 5,201 ,255, 24 0, 3, 76: rem 81 
3808 DATA66,14,224,22, 176,31 ,24 treni 42 
381 5 DATAI 73 , 1 05, 1 5, 1 0 5, 7, 1 4 1 , 1 05 

: rem 131 

3822 DATA1S, 173, 106, 1 5,105,0,141 : rem 75 
3029 DATAI 06,1 5, 232, 169, 1 59,141 ,107 

* tieni 24 9 

3836 DATAI 5, 169, 13, 32, 21 0,255, 76:rem 97 
3843 DATA66, ?4, 169, 1 3, 32, 21 0, 255:rem 93 

3850 DATA3 2 ,231 , 255,96, 173, 105, 1 5 

: r em 1 4 3 

3857 DATA74,74,74, 168, 185,62, 1 5 :rem 69 
3864 DATAI 33,253,185,83,15, 1 33, 254 

trem 201 
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3871 

DATAI 73, 1 05, 1 5,41 ,7, 73,7 

: rem 

201 

52458 

DATA205, 233,0, HI ,200,205 

:rem 

28 

3878 

DATAI 68, 200, 169,0, 56, 42,1 36 

■ : rem 

7 04 

52464 

DATA2 06 ,201 ,205,1 73,201 ,205 

1 30 

3885 

DATA208, 252,141 ,109,15,172, 

107 




: rem 



: rem 

245 

52470 

DATA 201 ,25S,240,3,76,93 

; rem 

201 

3992 

DATAI 5, 177,253,4 5,109,15,141 


52476 

DATA 2 0 4 , 1 2 4 , 4 5 , 5 76 , 3 1 ,24 

; rem 

253 



:rem 

T 50 

52482 

DATAI 73, 199, 205, 105, 7, 141 

i rem 

51 

3899 

DATAI 1 1 , 1 5,96,0, 1 60,64,224 

:rero 

43 

52488 

DATAI 99, 20 5, 173,200,205,105 


3906 

DATAI 28, 32,192,96,0, 160,64 

:rem 

48 



: rem 

149 

391 3 

DATA224.12B, 32, 192,96,0,160 

irem 

92 

52494 

DATAO, 1 41 ,200, 205, 2 32, 1 69 

: rem 

36 

3920 

DATA64, 224, 128, 16,16, 17,17 

:retn 

43 

52500 

DATAI 99, 1 41 ,201 , 205, 16 9, 1 3 

: rem 

69 

3927 

DATAI 8, 19, 1 9, 20, 21 ,21 , 22 

:rem 

192 

52506 

DATA32,210, 255, 76,93,204 

: rem 

251 

3934 

DATA22.23, 24, 24, 25,26, 26 

: rem 

193 

5251 2 

DATAI 69, 13, 32,21 0,255, 32 

: rem 

24 2 

394 7 

DATA27 , 27,28,256 

: rem 

72 

52 51 0 

DATA231 ,255,96, 173,201,205! rem 

97 





52524 

DATA41, 7, 141 ,204,205, 173 

: rem 

242 





52530 

DATA201 , 205, 74,74,74,168 

: rem 

255 





52536 

DATAI 85, 1 46, 205, 1 33, 251 ,185 
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: rem 

152 





52542 

DATAI 72,205, 1 33,252,24,165 

: rem 

91 

3 INPUT" { CLR} ( WHT J LARGHEZZA (!-2)";WIS 

52548 

DATA251 , 1 09, 204, 205, 1 33, 251 




: rem 

39 



; rem 

HO 

4 IFVAL (WI S ) < 1 ORVAL ( WIS ) 72THEN3 

: rem 

147 

52SS4 

DATAI 65,2 52, 10 5,0,1 33, 252 

: rem 

38 

5 POKE2 , VAL { WI $ } 

; rem 

786 

52560 

DATA24, 1 73, 1 32,3,101,252 

; rem 

237 

7 0 I- 

52224 

: rem 

2 30 

52566 

DATAI 33, 252, 1 73, 199, 205, 4? i rem 

104 

20 READA: IFA- 2 56THEN40 

: rem 

54 

52572 

DATA7 ,73,7, 168,200, 169 

: rem 

164 

25 PRINT" {CLR} MEMORIZZAZIONE LINGUAGGIO M 

52578 

DATAO, 56, 42, 1 36, 208, 252 

: rem 

207 

ACCHTNA" : POKE646 , A 

: rem 

158 

52584 

DATAI 41 , 203,20 5,2 4, 1 73, 200 i rem 

83 

30 P0KEI,A:I=I+1 :CH=CH+A:G0TO20 

: rem 

123 

52590 

DATA205, 101 ,252,133,252,173 
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: rem 

136 

UZ IONI DATA": END 

: rem 

132 

52596 

DATAI 99, 205, 41 ,24 8,168,138 

irem 

121 

50 PRINT*'{GUT* }BYS 52224 PER INIZIARE 

LA 

52602 

DATA72, 1 20,162,52,134,1 

ì rem 

166 

COPIARNE» 

: r em 

164 

52608 

DATAI 77,251 ,162,55, 1 34,1 

ì rem 

254 

52224 

DATA7 73, 0,221 ,41 ,3,73 

:rem 

87 

52 61 4 

DATAB8, 168, 104, 170,152,45 

: rem 

53 

52230 

DATA 3*160,6,10,136,208 

: rem 

135 

52620 

DATA 203,205,141 ,205,205,96 

: rem 

84 

52236 

DATA252, 141 ,132,3,173,24 

:rem 

241 

52626 

DATAO, 64, 128, 192,0,64 

t rem 

102 

52242 

DATA2 06 , 4 1 ,8,240, 9,24 

:rem 

97 

52632 

DATAI 28,192,0,64,128,192 

;rem 

0 

5224 8 

DATA 169,32,109,132,3,141 

: rem 

249 

52638 

DATAO, 64, 128, 1 92,0,64 

: rem 

105 

52254 

DATA132, 3, 169,0,32,189 

:r«n 

152 

52644 

DATAI 2 8, 192,0,64,1 28, 192 

; rem 

3 

52260 

DATA2 55 , 169,4, 7 70,160,255 

: rem 

48 

52650 

DATAO ,64,0, 1 ,2,3 

ì rem 

88 

52266 

DATA 32,1 86, 255, 32, 192, 255 

:rem 

56 

52656 

DATA 5 , 6,7,8, 10,11 

i rem 

155 

52272 

DATAI 62,4, 32,201 ,255, 176 

:rem 

247 

52662 

DATAI 2,13,15,16,17,18 

: rem 

96 

52278 

DATA 3 , 76,61 , 204,76,32 

:rem 

109 

52663 

DATA20, 2 1 ,22,23,25,26 

: rem 

94 

5 2284 

DATA 205, 169, 8,32,21 0,255 

: rem 

254 

52674 

DATA27,28, 30, 31 , 256 

; rem 

9 

52290 

DATAI 69, 1 3, 32,210,2 55, 1 62 

: rem 

47 





52296 

DATAO, 1 69, ì , 141 # 1 98,20 5 

: rem 

206 





$2302 

DATAI 69,0,141 ,1 99,205, 1 69 

; rem 

50 





52308 

DATAO, 141 ,200,205,169, 1 99 

: rem 

42 





5231 4 

DATAI 41 , 201 ,20 5,32, 22 5, 2 55 

: rem 

79 





52320 

DATA208, 3,76,32,205, 1 38 

: rem 

196 

MH 

*.• ^iimi ry*m 

52326 

DATA 72,152,72,32,41 ,205 

; rem 

195 


y:.~; m 

, i 1«! fe 


52332 

DATAI 04, 1 68 ,104,170,173,205 







:rem 

52338 DATA205, 45, 203, 205,240, 12 : rem 
52344 DATAI 73 , 202 , 20 5 , 1 3 , 1 98 , 205 : rem 
52 350 DATAI 41 r 202 , 20 5 , 76 , 1 4 3 , 2 04 ; rem 
523S6 DATAI 73, 198,205,73,255,45 ; rem 
52 362 DATA202, 205, 1 41 ,202, 205, 1 4 : rem 
52 363 DATAI 98,20 5,1 73,199,205,207 

:rem 

52374 DATA 128,240,20,24,173,199 :rem 
52380 DATA205, 105, 1 , 141 , 199, 205 :rem 
52396 DATAI 73,200,205, 1 05, 0, 1 41 :rem 
52392 DA TA200, 205,76, 93, 2 04, 173 i rem 
52 399 DATA 2 02 , 205,9,1 26,224 ,45 : rem 
52404 DATAI 44,10,173,202,205,41 :rcm 
52410 DATA31 ,9, 128,141 ,202,205 :rem 
5241 6 DATAI 42, 207,205, 166,2, 1 42 :rem 
52422 DATA206, 205, 1 69, 32,21 G,255:rem 
52428 DATAI 52,206, 206,205,208,246 

:rem 

52434 DATA174, 207,205, 169,1 , MI iretn 
52440 DATAI 98,205,169,0,1 41 ,202 :tem 
524 46 DATA 205,56,173,199,205,233:rem 
52452 DATA6, 141 ,199,205,173,200 :rem 
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DEL 


■o ap iè nuovi o nuotiti a tulli co- 
che serio interessati alta pre- 
mutone in linguaggio macchina 
OMMODORÉ 64. 


Unt 29.000 
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Ckw Pngmore 

IL BASIC IN 30 ORE 
PER SPECTRUM 

Questo semplice corso di autoistru- 
zione insegna a programmare, e un 
ha sempre bisogno di 
due ingredienti, un linguaggio e una 
struttura: dunque questo libro non 
insegna solo 8 BASIC, ma anche co- 
me si organizza correttamente un 
buon programma. 

Goti. 5MB Pag. 350 Um 40.000 


Al CONFINI 
DELLO SPEC 
Applicazioni avanza 

Un esame attento dei listati consenti- 
rà. al lettore di apprendere i 'segreti* 
deila programmazione strutturata e 
migliorare notevolmente le proprie 
capacità di programmatore. 

I programmi presentati vanno dagli 
arcade più famosi, tra cui il celebre 
*Spectrum Invadere* ai programmi ai 
utilità più interessanti, dai giochi 
<J azzardo a» programmi didattici, dai 
programmi funzionali a quelli di ma- 
tematica e di giochi di strategia. 

Con cassetta 

Cod. 4148 Ptg, 180 Lire 28. WO 


La biblioteca che fa testo. 


Roórmy Zafre 

IL TUO PRIMO 
PROGRAMMA IN BASIC 

La diffusione del BASIC per la sua 
semplicità e quasi 'naturalezza* di 
programmatone fa si che una cultu- 
ra generale sull’ informatica e la sua 
applicazione non può prescindere da 
una conoscenza di base di questo 
linguaggio, Questo lo scopo del li- 
bro: pe mettere anche a chi ha sol- 
tanto una cultura di base, di capire 
che cos è il BASIC e come si usa 
Cod. 507B Pag. 216 Lite 19.500 


Cies Kosnìo wski 

MATEMATICA E 
COMMODORE 64 

Tutte le funzioni matematiche dispo 
rubili sul CS4 sono qui descritte, ed il 
loro uso è Illustrato con programmi 
die possono essere utilizzati dai let- 
tore all'Interno dei suoi, per partico- 
lari applicazioni. 

Il libro contiene anche informazioni e 
programmi su altri argomenti, come 
i codici e la crittografia, I numeri ca- 
suali, le serie, la trigonometria, i nu- 
meri primi e l'analisi statistica dei 
dati. 

Con cassetta 

Cod. 5700 Pag.160 Uro 24.000 


Mike Grece 

ADVENTURE E 
COMMODORE 64 

Un manuale per ideare e utilizzare 
programmi di Adventure basati 
esclusivamente sul testo. 

Una progettazione modulare del pro- 
gramma rende più. tacile la compren- 
sione della struttura. Labilità nella 
programmazione avrà modo di emer- 
gere durante la costruzione graduale 
dell Adventure, per modificare il pro- 
gramma dimostrativo, o addirittura 
per costruirne uno nuovo. 

Coo cassetta 

Cod. 571D Pag. 240 Lire 35,600 

Rita Bonetti 

COMMODORE 16 
PER TE: BASIC 3.5 

È un libro di introduzione al BASIC 
Ct 6 con li ci assi ce taglio didattico 
Bone III. Adatto per la Scuola media 
inferiore e per dii non conosce rin- 
f ormalica. 

la cassetta allegata al libro contiene 
diverse lezioni, una per ogni capito- 
lo. che devono essere lette prima dei 
capitolo relativo. 

Con cassetta 

Cod. 4138 Pag. 238 Lire 35.000 
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di A. Burbe Luitich 

trad. e adatt. 

di F. Sorcina 




I metodi statistici fondamentali 
possono aiutarci a prendere de- 
cisioni logiche nelle situazioni 
di tutti I giorni. 


N ella maggior parte dei casi i metodi 
statistici elementari misurano un 
gruppo di cose (appartenenti a un dato 
insieme), per poi vedere come [e misure 
effettuate variano rispetto ad un certo 
standard. 

Questo programma di statistica, che 
pubblichiamo nelle due versioni per 
C64 e V1C 20, trasforma t dati grezzi 
che voi impostate in cifre, che potete 
utilizzare per prendere le decisioni di 
tutti i giorni, come ad esempio trovare 
il modo migliore per costruire un muro 
o sapere quanto denaro portare con voi 
quando andate a fare la spesa. 

Come primo esempio consideriamo due 
modi possibili per tagliare una tavola dì 
legno con precisione, e cioè usare una 
sega elettrica da tavolo oppure un se 
ghetto a mano. Regoliamo la sega da 
tavolo sulla lunghezza di 10 cm. e taglia 
mo cinque pezzi. Altri cinque li tagliamo 
col seghetto, e poi misuriamo la lun- 
ghezza esatta dei dieci pezzi per con- 
trollare la precisione dei tagli. 

Se non sono intervenuti elementi estra- 
nei durante le ope razioni dì taglio svol- 
te. possiamo aspettarci che le lunghezze 
dei pezzi variino in conseguenza del pro- 
cedimento usato. Un insieme di dati di 
questo tipo viene chiamato dagli statisti 
ci “ campione casuale non influenza 
to”. 

Supponiamo che le misure siano le se 
guenti: 

Sega da tavolo Seghetto 
(lunghezze in cm.) (lunghezze in cm.) 

10.5 12.2 

9.8 9.1 

10.3 8.0 

10.7 12.8 

9.6 8.8 


La stessa media 

Una semplice occhiata ai valori suggerì 


$ce che il taglio con il seghetto è decisa 
mente meno preciso di quello effettuato 
con la sega da tavolo. Tuttavia, se som- 
mate le lunghezze relative ad ognuno 
dei due metodi e dividete per 5, trove^ 
rete che entrambi i sistemi di taglio dan 
no la stessa lunghezza media valor 
medio 11 dei campioni) , e cioè 1 0. 1 8 cm 
Quindi il solo calcolo della lunghezza 
media non ci dice molto. Ciò che ci inte- 
ressa conoscere è un indice dello “spar 
pagamento” dei valori, in modo da de 
terminare quale metodo ci garantisca il 
maggior numero di lunghezze il più vici- 
no possibile al nostro standard di 10 
centimetri. In termini statistici dobbia 
mo calcolare la “variazione" 1 (o “inter 
vallo! e la ^deviazione standard 11 . 


La variazione si trova sottraendo, per 
ogni metodo di taglio, la lunghezza mi- 
nore dalla maggiore. Per il seghetlo ab- 
biamo un Intervallo di 4,8 cm. (12.8 - 
8.0). mentre per la sega da tavolo la 
variazione è dì 1! cm. (10,7 - 9.6) Si 
nota Immediatamente come la sega 
elettrica tagli con maggior precisione: il 
suo intervallo è infatti più piccolo. 

La deviazione standard, invece, serve 
(assieme alla media) a prevedere con 
che probabilità si può presentare una 
certa misura. Non dovete preoccuparvi 
dì come Ea si calcola; il programma Io 
fa per voi. Se provate ad impostare le 
lunghezze della tabella riguardante il se- 
ghetto, Il programma vi comunicherà 
una deviazione standard dì 2,17 cm.); 
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per la sega da tavolo Ja d. s. è invece di 
0.47 cm. 

Grado dì precisione 

Se tagliamo un gran numero di pezzi, 
misuriamo le loro lunghezze e te ripor- 
tiamo in un grafico, ponendo in ascissa 
(sull'asse x) la misura in centimetri e in 
ordinata (sull’asse y) il numero di volte 
che ogni misura si presenta, otteniamo 
una curva a forma di campana (detta 
“distribuzione normale"), la cui sommi 
tà corrisponde alla misura che si è pre 
sedata più frequentemente. Combinali 
do la deviazione stan dard SQL la lun- 
ghezza media possiamo determinare un 
intervallo di misure che comprende il 
68.3% dì tutte le lunghezze [ancora una 
volta non è necessario che conosciate 
la teoria: usate i numeri!). Per capire 
meglio questo concetto considerate la 
lunghezza media (10.18 cm.} e sottrae 
te da essa la d,s. per il seghetto (2.17 
cm.), ottenendo 8.01 centimetri. Som 
mate ora la d,s, alla lunghezza media e 
otterrete 12,35 centimetri. 11 significato 
della deviazione standard e che nell’in- 
tervallo compreso tra 8.01 e 12.35 cm. 
cade il 68.3% delle lunghezze. 
Sommando e sottraendo la d.$. relativa 
alla sega da tavolo (0.47 cm,) dalla lun- 
ghezza media (10. 18 cm.}, troviamo che 
il 68,3% (oltre due terzi) delle misure 
cade nell’in ter vallo compreso tra 9.71 
e 10 65 cm. 

Se desiderate ottenere un campione più 
vasto, allora dovete aumentare il nume- 
ro di deviazioni standard. Per includere 
il 95.4% di tutte le lunghezze dovete 
sommare e sottrarre dalla media due 
d,s,, cioè il doppio della deviazione stan- 
dard. Per il seghetto due d.s. corrispon- 
dono a 4.34 cm,; combinando questo 
dato con la lunghezza media otteniamo 
un intervallo che va da 5,84 a 14,52 
centimetri. L'intervallo relativo alla se- 
ga elettrica va invece da 9.24 a 11.02 
cm. (10.18 più e meno 0.94). 

Pianifichiamo le sposa 

Potete usare un metodo analogo per 
curare la pianificazione delle vostre spe- 
se per prodotti alimentari. In questo ca 
so i vostri dati consistono nelle somme 
che spendete in cibo lungo un perìodo 
di 13 settimane (un quarto di un anno): 


La statistica diventa facile 
versione par VIC 20 


Settima- 

Somma 

Settima 

Somma 

na 


na 


1 

84000 

8 

94000 

2 

1QOOOG 

9 

130000 

3 

150000 

10 

98000 

4 

74000 

11 

86000 

5 

102000 

12 

104000 

6 

90000 



7 

112000 

13 

108000 


Se impostate questi dati nel program* 
ma, troverete che la vostra spesa media 
mensile è di circa 102000 lire; che la 
spesa varia da un minimo di 74000 a 
un massimo di 150000 lire, con una 
variazione di 76000 lire; che spendete 
altrettanto spesso più di 100000 lire e 
meno di tale somma (questo è il valore 
“mediano”, cioè quello che divide a me 
tà I dati); che la vostra deviazione stan- 
dard è di circa 20000 lire. 


Applicazioni del programma 

Combinando la deviazione standard con 
la spesa media troviamo che in due terzi 
delle settimane spendete una somma 
compresa tra 82000 e 122000 lire in 
generi alimentari. In un sesto dei casi la 
spesa è inferiore a 82000 lire, mentre 
un sesto dei conti supera le 122000 lire. 
In tal modo, se mettete in bilancio 
122000 lire per la spesa mensile, que- 
sta somma vi basterà nell 1 84% dei casi. 


16% 68% 16% 
irw/fcs di L Z00OQ L 20000 più di 

L 82000 < * — — L, 122000 

UH9 deviai, una deviai 
standard standard 
in meno in più 


L, fla.OCU L, i 02000 L tZZ.000 

(media) 


$e volete essere sicuri di avere abba- 
stanza denaro anche nei caso che i prez- 
zi aumentino, allora vi conviene usare 
due deviazioni standard. Sommando 
due d.s. (40000 lire) alla spesa media 
(102000 lire) troverete che per avere 
una sicurezza del 98% dovete mettere 
in bilancio 142000 lire alla settimana. 
Naturalmente ci sono altri fattori da 
considerare (vacanze, feste, visite di 
amici o parenti), che possono alterare 
lì vostro bilancio. Il programma non può 


ovviamente tener conto di queste cose; 
esso è comunque un utile strumento per 
prendere le decisioni un po’ meno a oc- 
chio e croce dr quanto in genere si fac 
eia. 

Il programma chiede, prima di elabora- 
re i risultati, di conoscere la dimensione 
del campione statìstico, cioè il numero 
di dati che devono venir impostati (linea 
4 10). Dopo l’INPUT dei valori che costi- 
tuiscono il campione il programma ca! 
cola tutti i parametri statistici di cui sì 
è parlato in questo articolo, vale a dire 
media, deviazione standard, mediana e 
variazione. 

Le linee 325-350 e 4900-5610 fornisco- 
no a chi usa il programma una breve 
spiegazione del significato delle statisti 
che che vengono effettuate La misura 
del campione è limitata a 100 elementi 
nella versione per il VIC 20, mentre il 
C64 può elaborare fino a 300 dati. Que- 
sti limiti sono piu che sufficienti nella 
maggior parte dei casi. 

Correzione degli errori 

Una ruotine per la correzione degli erro- 
ri è inclusa nelle linee 555-580 e 
5900-6190 Essa permette la modifica 
di qualsiasi dato impostato, prima che 
vengano effettuati i calcoli. E possibile 
che il tempo di attesa durante l’elabora- 
zione superi i due minuti, in quanto il 
programma deve ordinare i dati; ciò è 
normale per il BASIC, e l'attesa può 
anche essere più lunga se il numero di 
dati supera 100. 

La versione per il VIC richiede 
un’espansione di memoria di almeno 
3Kbyte, Se però vengono eliminate le 
spiegazioni, la routine di correzione er 
rori e i titoli, allora il programma potrà 
funzionare anche su un VIC inespanso. 
Per la precisione, le linee da cancellare 
sono: 95-180. 325-350, 555-580, 

4900 5610 e 5900 6190, 

Ulteriori riduzioni possono essere fatte 
diminuendo la misura massima del cam- 
pione. Per far ciò dovete cambiare il 
dimensionamento del vettore SA nella 
linea 90 e sostituire al valore 1 00 nella 
linea 420 la nuova misura massima. 
Una statistica su un campione di 100 
valori richiede circa 30-45 minuti di caì 
colo manuale. Questo programma inve- 
ce richiede 8-10 minuti, compreso l’IN- 
PUT. 


200 PRINT" ( 2 GIU'H 3 SPAZllQUESTO PR0GR 
A.MMÀ " ; c ero ì 2 

210 PRINT" f 2 SPAZI }CALCQLA I SEGUENTI” 

; rem 0 

220 PRINT" VALORI A PARARE DAI": rem 88 

230 PRINT" { 3 SPAZI} DATI INTRODOTTI:" 

** ; rem 21 0 

240 PRINT" f 2 GIU 1 ÌK VALOR MEDIO" 

: rem 218 

250 PRINT'MGIU* }2* DEVIAZIONE STANDARD" 

:rem 24 

290 PRINT" 3. MEDIANA" srem 188 


90 DI msà ( 100) srem 185 

! 00 PRINT' 1 (CLR}":PÙKE36879, 1 26 SPRINT" 

fBLK}" :rem 207 

120 PRINTTA8 (4) "{ 8 GIU’HRVSÌLA 

( 2 SPAZI} STATISTICA" 224 

140 PRINTTA3 (4) "(GIU 1 ffRVS} DIVENTA FACILE 
11 : rem 148 

180 FORK= 1 T04 0 0 0 : NEXT : rem 25 

1 90 PRINT" {CLR}" ! rem 254 
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300 

PRINT" { GIU 1 } 4 . VARIAZIONE" 

: rem 

207 

310 

PRINT" { 3GIIPJPREMI { RVS }C [OFF } 

PER 


CONTINUARE" 

; rem 

219 

320 

GETZS : IFZ$<>"C"THEN320 

: rem 

255 

330 

PRINT" {CLR} " : POKE21 4,10: PRINT:POKE21 1 


, 4 : PRINT"HAI BISOGNO DI" 

: rem 

38 

340 

PRINT" {GIU’ }{ 2 SPAZI } ISTRUZIONI 



{ 2 SPAZI] (*S/N) ?"iGOSUB7010 

srem 

123 

350 

IFZ$*"S"THENGOSUB501 0 

: rem 

238 

370 

PRINT" { CLR} IMPOSTA I DATI UN” 




: rem 

41 

380 

PRI NT "VALORE PER VOLTA » " 

: rem 

208 

41 0 

P0KE2 1 4,10; PRINT : POKE2 1 1,0; 

INPUT" 

QUAN 


TI DATI " ; N 

: rem 

147 

420 

IFN> 1 00ORN< 2THEN57 ? 0 

: rem 

155 

430 

PRINT" {CLR} { 4 GIU' ) SE COMMETTI UN ER 


RORE" 

; rem 

171 

440 

PRINT* 1 {GIU* } CONTINUA A IMPOSTARE 



( 2 SPAZI} {GIU T }I DATI." 

t rem 

122 

4 50 

PRINT" {GIU 1 } POTRAI FARE LE" 

: rem 

249 

460 

PRI NT " {GIU* } CORRE Z I ON I PIU 1 

TARDI 




: rem 

55 

470 

PRINT" { 2 Gru 1 } {RVS} {BLK} { 

4 DES } PREM 


I UN TASTO" 

: rem 

79 

480 

GETZS : IFZS-"”THEN480 

: rem 

141 

500 

FORICI TON 

i rem 

36 

520 

PRINT" {CLR}": POKE21 4,11 : PRINT : POKE2 1 1 


,0:PRINT"DATO N . " E ; : INPUTR$ 

; rem 

28 

530 

SA ( I } "VAL (R$) 

: rem 

173 

550 

NEXT 

trem 

217 


560 PRI NT" {CLR} " : POKE21 4,11 : PRINT : POKE2 1 1 
, 0 : FRI NT" VUOI FARE DELLE" itera T27 
570 FRI UT "CORREZIONI (S/N) GOSUB701 0 

: i ein 8 3 

580 IFZ$“ f, S*THENFRINT" {CLR} " :GOT06000 

; rem 74 

587 PRINT” { CLR } M ; POKE2 I 4,9: FRI NT i POKE 2 1 1 , 


4 : PR I NT " { RVS } ATTENDI { 2 SP AZ I } PREGO” 


508 

: rem 

FGKE2 1 4,11: PRINT i PRINT" CALCOLO 

52 


{ 2 SPAZI ] STATISTICHE" 

: rem 

13 

590 

FORT -1 TON 

i rem 

45 

600 

SUM=SUM+SA(I) 

: rem 

22 

610 

NEXT 

: rem 

21 4 

620 

MEAN-SUM/N 

i rem 

104 

63 0 

FORI -1 TON 

: rem 

40 

64 0 

DFP-DFF+ (SA { I ) -HEAN) E2 

i rem 

255 

650 

NEXT 

: r em 

21 8 

660 

SDDEV*SQR(DFF/{N-1) } 

: rem 

146 

670 

FL=0 

: rem 

187 

680 

FORI =1 TON- 1 

: rem 

139 

690 

IFSA ( I ) < m SA ( 1+1 ) THEN74Q 

: rem 

41 

700 

Q = SAU) 

: rem 

83 

710 

SA ( I ) *SA (1+1 ) 

: rem 

141 

720 

SA ( 1+1 ) *Q 

* rem 

177 

730 

FL-1 

: rem 

154 

74 0 

NEXT 

; rem 

21 8 

7 50 

IFFL” 1 THEN67D 

: rem 

247 

760 

RG-SA(N}-SA[1 ) 

; rem 

233 

765 

LR-5A{ 1 } 

; rem 

147 

767 

HR-SA(N) 

; rem 

174 

81 0 

IFN/2<> INT (N/2) THEN81 4 

: r em 

8 

81 1 

IFSA ( N/2) -SA [ N/2+1 ) THENMDD- 

SA (N/2) 


812 

IFSA( N/2) OSA (N/2 + 1 ) THENMDD 

: rem 191 
■ (SA (N/2) + 


SA ( N/2+1 ) ) /2 

; rem 

202 

81 3 

GOTOl 31 0 

: rem 

154 

81 4 

MDD = SA ( INT (N/2 + 1 ) ) 

i rem 

21 9 


1310 PRINT" ( CLR} RISULTATI DEI CALCOLI" 

; r em 179 

1 320 PRI mt *********************** 11 j 

: r em 110 


1 330 PRINT" {GIU 1 INUMERÒ DATX*SPC(3)N 

trem 89 

! 340 PRINT" { GIU 1 JMEDI A"SFC { 9) INT(MXAN*100 
00+.5)/100Q0 :reir 160 

1 350 PRI NT "{GIU* } DEV * ST, " SPC (6) 3 NT { SDDEV 
*100OO+,5)/10OQQ :renj 117 

1 360 PRINT" (GIU 1 }MEDI ANA"SPC [ 7) INT(HDD*10 
000 + * 5} /I 0000 :rem 227 

1 370 PRINT” { Gl 0 1 } VARI AZ IONE "SPC { 4 ) INT ( RG* 
100GD+.5)/10G00 :rem 174 

1 375 PRINT” {GIU* } VAL. + BASSO ”S PC C 2 ) LR 

irem 109 

1 380 PRINT” {GIU 1 } VAL. + ALTO "SPC ( 3) HR 

: rem 30 

1 480 FOKE21 4,21 : PRINT : POKE21 1 ,4:PRINT" 

E RVS} PREMI UN TASTO"; irem 73 

1490 GETAS : IFA5=""THENl 490 :rera 191 

1 51 0 PRI NT" {CLR} " : POKE2 1 4 , 1 1 ; PRINT : POKE21 
1 ,0:PRINT"VUOI ELABORARE ALTRI" 

irem 48 

1520 FRI NT "DATI ( S/N} ?" : GOSUB701 0 

Érem 157 

1 530 IF Z $<> " S "THENPQKE3 6879,27: PRINT 11 



{CLR} " ; END 

: rem 

154 

1540 

CLR : DIMS A { 100) :GOTO330 

: rem 

62 

5010 

PRINT" { CLR } {GIU 1 } IL MASSIMO 

NUMERO D 


I" 

: rem 

76 

5020 

PRI NT "DATI CHE PUOI" 

: rem 

199 

50 30 

PRI NT" IMPOSTARE E 1 100," 

: rem 

118 

5035 

PRINT" IL MINIMO E 1 2." 

: rem 

200 

504 0 

PRINT " {GIU 1 J ********************* 

w 



: rem 

29 

5050 

PRINT" [GIU* 3 IL VALOR MEDIO 

E' LA" 




t rem 

44 

5060 

PRI NT”MÈDI A ARITMETICA DEI" 

: rem 

177 

5070 

PRI NT” NUMERI IMPOSTATI." 

srem 

85 

50 90 

PRINT" {GIU r }******•*»****** 


il 



: rem 

34 

51 00 

PRINT” {GIU r }LA DEVIAZIONE STANDARD"; 



: rem 

175 

511 0 

PRINT”E 1 UNA MISURA DI" 

: rem 

70 

51 20 

PRINT" QUANTO I NUMERI SI" 

: rem 

38 

5130 

PRI NT "DI SCOSTANO DALLA" 

: rem 

239 

51 35 

PRINT"MEDIA." 

: r em 

45 

51 40 

PRINT" { 2 GIU 1 } PREMI [RVS}C{OFF) 

PER 


CONTINUARE" ? 

: rem 

59 

51 50 

GETA$ i IFA$ <> *C"THBN51 50 

:rem 

57 

51 60 

PRINT" {CLR} I DATI TENDONO A 

H 




: rem 

243 

51 70 

PRI NT "CREARE UNA CURVA A" 

: rem 

246 

51 80 

PRI NT "FORMA DI CAMPANA" 

: rem 

146 

51 90 

PRINT" (DISTRIBUZIONE" 

i rem 

179 

5200 

PRI NT "NORMALE) ; LA DEV. ST, 

ri 




: rem 

121 

5210 

PRI NT "E 1 LA MISURA DELL * 11 

; rem 

1 7 ì 

5220 

PRI NT "AREA SOTTO LA CURVA." 

: rem 

136 

5230 

PRINT" [GIU 1 }N. DI DEV, { 5 5PA2 I H 

AR 


EA" 

: rem 

0 

5240 

PRINT"5T. (+/-)" 

: rem 

73 

5245 

PRINT"-* { 5 SPAZI}- 

n 




irem 

113 

52 50 

PRINTTAB (4) "{GIU* }1 "TAB (16) 

"68 . 3" 




: rem 

221 

5260 

PRINTTAB (4) "{GIU 1 }2"TAB (16) 

"95,5" 




: rem 

225 

5270 

PRINTTAB (4) "(GIU' ]3”TAB (16) 

"99,7" 




: rem 

233 

5280 

PRINTTAB ( 4 ) "{GIU 1 )4”TAB (16) 

"99.9" 




: rem 

237 

5290 

PRINT" { 2 GIU 1 } PREMI {RVS}C{OFF} 

PER 


CONTINUARE"; 

: rem 

65 

5300 

GETA5 : 1 FA$ O "C" THEN5 3 0 0 

: rem 

51 
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5430 

PRINT" {CLR } {GIU 1, }******* 




* * * 

: rem 

179 

5435 

PRINT" {GIU* ) LA MEDIANA E 

' IL" 




: rem 

48 

5440 

PRI NT " V A LORE CHE DIVIDE , 

A" : r em 

45 

5450 

PRI NT” META' I DATI." 

: rem 

134 

54 60 

PRINT"{ 2GIU’!PREMI ! RVS }C {OFF } 

PER 


CONTINUARE"; 

:rem 

64 

54 70 

GETAS : IFA$<> "C"THEN54 70 

;rem 

67 

5490 

PRINT" {CLR}{ 2 GIU* }LA VARIAZIONE 

; E 1 


LA" 

: rem 

21 4 

5500 

PRINT"DIFFERBNZA TRA IL" 

i rem 

245 

551 0 

PRI NT "DATO PIU* BASSO E" 

f rem 

150 

5520 

PRI NT "QUELLO PIU 1 ALTO." 

: rem 

226 

5530 

PRINT "{GIU* } ESSA DA 1 UNA 

STIMA" 




: rem 

233 

5540 

PRINT" APPROSS IMATIVA DELLO" : rem 

66 

5550 

PRI NT" 1 SPARPAGLIAMENTO 1 " 

t rem 

85 

5555 

FRI NT "DEI DATI." 

: rem 

199 

5560 

PRINT"! 2 GIU 1 ) LA DEV. STANDARD E 

! 1 » 



s rem 

26 

5570 

PRINT"PIU' ATTENDIBILE." 

; rem 

10 

5580 

PRINT" £ 4 GIU 1 } PREMI {RVS} I {OFF} 

PER 


INIZIARE" 

; rem 

147 

5600 

GETAS : I FAS O " I "THEN56Q0 

srem 

63 

561 0 

RETURN 

:rem 

172 

5710 

POKE21 4,10: PRI NT : POKE2 1 1 

, !8:PRINT 

. «i 


{ 4 SPAZI}" 

S rem 

132 

5720 

GOTO 4 1 0 

: rem 

156 


5740 FRI NT" { CLR $ " : FOKE2 14,20: PRINT : POKE 2 1 
1 , G : P RI NT " ( BL K ) { RVS } ( RED }C { BLK } QRRE 

Z, {RED)p{BLJC}R0SEG. { RED } F{ BLK } INE 
" ? ; RETURN : rem 1 1 

581 0 GETZS : lTZ$"* m QR ( ZSO "C" ANDZ$C>"P"ÀND 
2$ O " F B ) THEN5 810 : rem 22 

5820 KL*0 1 1 FZ $ » " P "TBENKL* 1 : GOTQ6 1 3 0 

: rem 92 

5830 IFZ$*"F”THENS87 : rem 119 

5840 PRINT" {CLR}" : rem 53 

6000 PQKE21 4, 1 1 SPRINT :PGK£21 1 ,Q : rem 58 

6010 PRl NT "RI CORDI IL NUMERO DEL DATO SBA 
GLIATO (S/N) ?":GQSUB701 0 : rem T32 

6020 iFZ$="N"THEN61 30 : rem TS7 

6030 PRINT" {CLR) ":POKE2M, 6 : PRINT : POKE2 11 
, 1 :INPUT"N. DATO" ; ENS : rem 84 

60 4 0 EN= VAL ( EN$ ) : I FEN> NORE N< 1 ORE N< > I NT { EN 
ÌTHEN6030 srem 131 

6070 P0KE21 4 , 8 : P R I NT ; PO KE 2 1 1 , 1 : PRINT” DATO 
N. "EN srem 90 

60 7 5 F0KE21 4 , 1 0 : FRI NT : POKE21 1 , 1 SPRINT" VAL 
ORE ="3A{EN) : rem 207 

6080 POKE21 4, 1 2:PRINTs?OKE21 1 , } :INPUT"NUG 
VO VALORE " } C ; S A { EN ) =C t rem 9 8 

60 90 POKE21 4, 1 4 : PRINT : P0KE21 1 , 1 SPRINT" 

£ 2 GIU* } ALTRI ERRORI {S/N) ?" : GOSUB7 
010 : rem 165 

61 1 0 IFZS= "S "THENPRINT" {CLR} * : GOTO6000 

: rem ì T 7 

6)20 G0T0587 : rem 166 

6)30 GOSUB5740:POKE2Ì 4, 0 SPRINT: POKE21 1 ,0 

; rem 1 50 

6140 IFKL-OTKBNP RI NT” QUESTI SONO I PRIMI 
{ 3 SPAZI} DIECI VALORI. ” S K= 1 :GOT06 15 
0 ; r em 2 0 5 


614 5 FRI NT " QUESTI SONO I DIECI £ 3 SPAZI) 

VALORI SUCCESSIVI." :rem 94 

6150 POKE21 4,3: FRI NT : POKE2 11 ,1 s PRINT"N . D 
ATO - VALORE" : rem 183 

6160 FF s 0 : FORK* KTOK+9 : FF-FF+1 ìrem 247 

6165 I F K> 1 00 THENK S K+ 9 : NEXT ; GOTO 587 

: rem 1 1 3 

61 70 POKE21 4 , FF+ 5 : PRI NT : POKE 2 1 1 ,1 sPRINTK; 

TAB(11)SA(K) ; rem 212 

6180 NEXT s rem 14 

6)90 GOTO5 810 : rem 215 

7010 GETZS :IFZ$«" "OR { Z$O w S "ANDZSO "N" ) TH 
EN70T0 z rem 195 

7020 RETURN :rem 169 


La statistica diventa facile 
versione per C64 

8 0 PONE 53280,0: POKE 53281 ,0 : rem 189 

90 DIMSA( 300) : rem 187 

1 20 PRINT" { CLR} f<1>] " ì POKE2 14,10 SPRINT : PO 
KE211 ,13: PRINT" (RVS)LA{ 2 SPAZI} STATI 
STICA" : rem 252 

POKE21 4,14:PHINT:P0KE2Ì 1 ,)3:PRINT" 

£ RVS) DI VENTA FACILE" : rem 12 

FOR K= 1 T04 0 0 0 : NEXT ì rem 25 

PRINT" { CLR ] " : POKE 2 1 4 , 4 : FRI NT : PGKE21 T , 
7 SPRINT" {CYN} QUESTO PROGRAMMA CALCOLA 
I" srem 230 

POKE21 4,5: PRINT : POKE2 1 1 , 8 : PRINT"SEGUE 
NTI VALORI PARTENDO" ; rem 123 

POKE2 1 4,6: PRINT : POKE2 1 1 , 1 0 : PRI NT"DAI 
DATI INTRODOTTI: 11 irem 82 

POKE 21 4, 1 0:PRINT:POKE21 1 , 1 3: PRINT") . 
VALOR MEDIO" ; rem 153 

POKE 2 14,12: PRINT : POKE2 1 1 , 1 3 : PRI NT"2 . 
DEVIAZIONE" srem 153 

POKE2 14,13 SPRINT s POKE 2 1 1,16: PRI NT" STA 
NDARD " : rem 16) 

POKE2Ì 4 r ISsPRINTsPOKEll 1,13 : PRINT" 3 . 
MEDIANA" : rem 162 

POKE 21 4,17: PRINT : POKE 2 1 1 , 1 3:PRlNT rt 4. 
VARIAZIONE” ; rem 166 

POKE21 4,22: PRINT : POKE 2 ? 1 , 9 : FRI NT" PREM 
I { RVS}C{OFF ì PER CONTINUARE" 

: rem 97 

GETZS sIFZ$O"C"THEN320 srem 255 

SUM=0 sMEAN-0 :DFF=0 :SDDEV=0 :RG=0 

:rem 152 

PRI NT " {CLR} " : POKE 21 4, 1 2 : FRI NT : POKE2Ì ! 

, 4 : PRINT"HAI BISOGNO DI ISTRUZIONI {S 

/N)?" : rem 168 

GOSUB7010 srem 223 

IFZ$ -"S "THENGOSUB50 1 0 : rem 238 

PRINT" {CLR}": POKE21 4 , 1 0 : PRINT : POKE2 1 1 
, 11 :INPUT"0UANTI VALORI";N :rem 14 

IFN>3000RN<« 1 THENFORI »1 4 8 STO 1 498 :PQKE 
1,32: NEXT : G0T04 1 0 : rem 139 

PRINT" (CLR} " srem 255 

POKE 21 4,2: PRINT : POKE2 1 1 , 1 SPRINT "SE CO 
MMETTI UN ERRORE, CONTINUA A" 

:rem 33 

POKE 2 1 4,4 : PRINT : POKE2 1 1 , 1 :PRINT"IMPOS 
TARE I DATI. POTRAI FARE LE": rem 181 
POKE2 14,6: PRINT ; POKE21 ) , 1 :PRINT"CORRE 
ZIONI PIU' TARDI." srem 168 

FOR 1*1 TON :rem 36 

POKE 2 1 4,11 : PRINT :POKE21 ) , 1 0:PRINT"DAT 
O N.{ 4 SPAZI} ( 4 SIN}”I; ;INPUTR$ 

: rem 35 

SA(I}=VAL(R$) : rem 173 

FORJ*l S26T01 54 3 : POKE J, 32 s NEXT; NEXT 

srem 124 


1 40 

180 

200 


210 


220 


240 


2 50 


260 


290 


300 


310 


320 

325 

330 


340 
3 50 
410 

420 

425 

430 


440 

450 

500 
52 0 


530 

550 
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560 

PRINT*' {CLR} " : PGKE2 14,12; 

print;poke21 1 


,3 


: rem 

177 

561 

PRINT "VUOI FARE DELLE CORREZIONI 

(S/N 


) ?" 


: rem 

1 52 

570 

GOSUB70 1 0 


: rem 

226 

560 

I FZ$= "S "THENPRINT" { CLR} 11 

: GOTO6000 





: rem 

74 

587 

PRI NT" {CLR } " : POKE2 1 4,11: 

PRINT : POKE 21 1 


, 1 3: PRINT" {RVS {ATTENDI PREGO" 





: rem 

141 

588 

POKE 21 4 , 1 3 : FRI NT : POKE 2 1 1 

t 7 : 

PRINT" 

CALC 


OLO DELLE STATISTICHE" 


; rem 

21 3 

590 

FORI = 1 TON 


: rem 

45 

600 

SUM=SUM+SA(I) 


: rem 

22 

610 

NEXT 


; rem 

21 4 

620 

MEAN=SUM/N 


;rem 

104 

630 

FORI =1 TON 


;rem 

40 

64 0 

DFF-DFF+ [ SA { I ) - MEAN) E 2 


:rem 

255 

650 

NEXT 


: rem 

21 8 

660 

$DDEV=$QR (DFF/ (N- 1 ) ) 


: rem 

146 

6 70 

FL=0 


: rem 

187 

6 80 

FORI - 1 TON- 1 


: rem 

139 

6 90 

1FS A ( I } < -SA { 1 + 1 ) THEN7 4 0 


;rem 

41 

700 

G=5A{I) 


: rem 

83 

710 

SA ( I ) -SA [ 1 + 1 ) 


: rem 

141 

720 

SA ( I + 1 ) -Q 


: rem 

177 

730 

FL= 1 


: rem 

154 

740 

NEXTI 


: rem 

35 

750 

IFFL-1 THEN67G 


:rem 

247 

760 

RG=SA ( N) -S A { 1 ) 


: rem 

233 

765 

LR=SA ( 1 ) 


: rem 

147 

767 

HR=SA(N) 


: rem 

1 74 

81 0 

IFN/2< > INT ( N/2 ) THEN8 1 4 


; rem 

8 

811 

IFSA [N/2) -SA [ N/2+1 ) THENMDD- 

SA ( N/2 ) 




: rem 

1 91 

81 2 

IFS A { N/2) OSA (N/2 + 1 } THENMDD 

■= [ SA ( N/2 ) + 


SA ( N/2 + 1 ) )/2 


: rem 

202 

81 3 

GOTOl 31 0 


: rem 

1 54 

81 4 

MDD=SA( INT (N/2+1 ) ) 


: rem 

21 9 


1310 PRINT" {CLR} ,t :POKE21 4, 3 : PRI NT : POKE2 11 
, 9 : PRI NT" RISULTATI DEI CALCOLI" 

: rem 70 

1 320 POKE21 4, 4 : FRI NT : POKE2 11 , 7 : FRI NT" * * * * 
********************** ;r em 56 

1 330 P0KE21 4 , 6 SPRINT: PQKE21 1 , 7 : FRI NT 11 NUME 
RO DATI "SPC ( 1 Q ) N : rem 255 

134 0 POKE21 4, 8 : FRI NT : POKE21 1 , 7 :rem 2 5 

1 34 5 PRI NT "MEDI A "SPC (16) INT (MEAN* 1 0000 + * 5 
J/10000 ;rem 194 

1 350 POKE21 4, 1 0 : PRINT : POKE21 I ,7 : rem 67 

1 355 PRINT"DEV. STANDARD T 'SPC ( 8 ) INT ( SDDEV* 
1 0000 + * 5) /I 0000 ì rem 231 

1 3 60 POKE21 4, 1 2 : PRI NT : POKE21 1 , 1 :rem 70 

1 365 PRINT ,, MEDIANA ,, SPC (1 4) INT [MDD* 1 0000+ . 

5 ) / 1 0 0 0 0 :rera 5 

1 370 POKE 27 4,1 4 : PRI NT : PO KE 2 11,7 :rem 73 

1372 PRINT"VARIAZ IONE"SPC (11) INT (RG*1 0000 
+, 5)/l 0000 :rem 205 

1 375 POKE 21 4 , 1 6 ; PRI NT : POKE2 1 1 , 7 ; PRINT" VAL 
ORE P IO * BAS SO "SPC ( 4 } LR ; r em 186 

1 377 PQKE2 1 4 , 1 8 : PRINT : POKE 21 1 , 7 : PRINT"VAL 
ORE PIU* ALTO"SPC (5)HR : rem 115 


1480 POKE 2 1 4,22 : PRINT : POKE 2 1 1 ,13 SPRINT'" 

{ RVS -HVEL} PREMI UN TASTO {CYN } " 

:rem 124 

1 490 GETA3 : IFA$ = "*'THEN1 490 :rem 191 

1 51 0 PRI UT " fCLR} " SPORE 21 4,12: PRINT:POKE21 
1,4 : rem 222 

1520 PRI NT " VUO I ELABORARE ALTRI DATI (S/N 

)?" : rem 103 

1530 GOSUB7010 :rem 17 

153 5 IFZ $ - "H " THENP RI NT *' { CLR } " : END 

: r em 78 

1 540 FOR 1 = 1 TON t S A ( i ) =0 : NEXT ; G0T032 5 

:rem 180 

5010 PRINT" {CLR} " : POKE 2 1 4 r 3: FRI NT : POKE 21 1 
,4 : rem 173 

5020 PRI NT" IL MASSIMO NUMERO DI DATI CHE 
PUOI" :rem 216 

50 3 0 PO KE 2 1 4,5: PRINT : POKE 2 1 1 , 1 : PRINT" IMPO 

STARE E 1 300, IL MINIMO E' 2," 

; r em 36 

5050 POKE 21 4 , 9 : PRINT : POKE 2 1 1,4 : PRI NT "IL V 
ALOR MEDIO E f LA MEDIA" :rem 4 
5070 POKE 21 4,1 ì : PRINT : POKE2 1 1 , 1 -PRINT" ARI 
TMETICA DEI NUMERI IMPOSTATI*" 

:rem 165 

51 00 POKE 2 1 4,1 5 : PRINT : POKE2 1 1 ,4:PRINT"LA 

DEVIAZIONE STANDARD E' UNA": rem 105 
5120 POKE21 4,17: PRINT : POKE2 1 1 , 1 :PRINT"MIS 
URA DI QUANTO I NUMERI SI" :rem 57 
51 30 POKE 2 1 4 , 3 9 : PRINT : POKE2 1 1 , 1 ;PRINT"DIS 
COSTANO DALLA MEDIA*" : rem 52 

514 0 PRI NTTAB ( 5) " f 2 GIU 1 }{ RVS }{ CRN } PREMI 
UN TASTO PER CONTINUARE { CYN } " 

; r em 115 

5150 GETA$ : IFA$ = " "THEN51 50 :rem 185 

53 55 PRINT" { CLR ì 11 :rem 52 

5160 POKE 214,1 : PRI NT : POKE 211,4 : PRI NT 11 1 DA 

TI TENDONO A CREARE UNA CURVA 1 * 

: rem 24 8 

5180 POKE2 14,3: FRI NT : POKE 21 1,1 : PRI NT "A FO 
RMA DI CAMPANA [DISTRIBUZIONE" 

: rem 102 

5200 POKE 21 4,5: PRINT : POKE2 1 1 , 1 : PRINT ,T N0RM 
ALE)* LA DEVIAZIONE STANDARD E' LA" 

: rem 6 8 

5220 POKE21 4, 7 : FRI NT : POKE21 1 , 1 :PRINT ,T MISU 
RA DELL'AREA SOTTO LA CURVA* '* 

; rem 3 7 

5230 POKE 2 14,9: PRINT : POKE 21 1,5 :PRINT"N . D 
I DEV* ST* "SPC ( 6) " % AREA" : rem 2 55 
5245 POKE21 4 , 1 0 : PRINT : POKE2 11 , 5:PRINT"--- 

— -"SPC ( 6} " : rem 136 

5250 PRI NTTAB (10) 11 {GIU* }1 "SPC (1 5) "68. 3* 1 

:rem 24 

52 60 PRINTTABdO)" {GIU 1 }2"SPC(15) "95*5*' 

: r em 2 8 

5270 PRINTTAB(1 0) 11 {GIU 1 }3"SPC (1 5) "99. 7" 

: rem 3 6 

5280 PRI NTTAB { 10) 11 {GIU 1 }4"SPC(1 5) "99. 9" 

: rem 40 

5290 PRI NTTAB ( 5) " { 2 GIU '}{ RVS } (GRN } PREMI 
UN TASTO PER CONTINUARE {CYN } " 

;rem 121 

5300 GETA$ : IPÀ$ = ,r "THEN5 3 00 :rem 179 

5430 PRINT" {CLR}" : rem 48 

5435 POKE 2 14,3 : PRINT : POKE 2 1 1,4: PRINT"LA M 
EDI ANA E' IL VALORE CHE" : rem 59 

54 50 POKE21 4, 5 : PRINT : POKE2 1 1 , 1 :PRINT"DIVX 

DE A META 1 I DATI. 1 ' ;rem 254 

54 90 POKE 214,9: PRINT : POKE 21 1 , 4 : PRINT Ir LA V 
ARI AZ IONE E' LA DIFFERENZA TRA" 

: rem 111 
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551 0 POKE21 4,11 : PRINT : PGKE2 1 1 , 1 : PRINT" IL 
VALORE PIU' BASSO E QUELLO PIU'" 

:reru 90 

5520 POKE21 4, 1 3 SPRINT : PQKE21 1 , ì : PRINT" ALT 
O. ESSA DA' UNA STIMA APPROSSIMATIVA 
" : rem 25 

5530 POKE21 4 , 1 5 : PRINT : POKE2 1 1 , 1 :PRINT”DEL 
LO * SPARPAGLIAMÉNTO’ DEI DATI," 

:rem 152 

5540 FOKE21 4, 1 7 ; PRINT : POKE21 1 , 1 :PRINT n LA 
DEV. STANDARD E' PIU' ATTENDIBILE . " 

: rem 1 3 

5580 PRINTTAB{9) "{ 2 GIU 1 } (RVS| {GRNjPREMI 
(OFF } I { RVS } PER IN I Z I ARE { CYN } " 

:rem 161 

5600 GETA$ : I FA$ = " "GR (À$<> " 1 " } THEN5 600 

: r em 23 

5610 RETURN :rem 172 

5810 GETZ$ : IFZ$ - " "OR ( Z$0 ,i C w ANDZS< > "F"AND 
Z$< > "F" ) THEN58 1 0 ; rem 22 

5B20 FL»0 : IFZ$- "P N THENFL= 1 :GGTQ6Ì30 

ìreiti 82 

5830 IFZ$="F"THEN587 itero 119 

584 0 PRINT" { CLR f " :rem 53 

6000 PQKE 2 1 A , 1 2 : F ri NT : P Q KE 2 1 ? , 1 :PRINT T, RIC 
ORDÌ IL N, DEL DATO SBAGLIATO (S/N) ? 

: r em 87 

6010 GOSUB70 1 0 ; rem 75 

6020 IFZS-"N"THEN61 30 : reir> 157 

603 D PRINT" { CLRJ 11 : PQKE 2 T 4,6: FRI NT : POKE21 1 
,10: TNPUT "NUMERO DEL DATO" ; ENS 

:rero 779 

6040 £N- VAL ( EN$ J : IFEN>NOREN< IDRE NO INT f EN 
JTHEN6030 :r em 131 

6070 PQKE2 1 4 f B : PRINT : PGKE2 11,6 : PRINT"DATO 
N* "ENS PC (5) "VALORE = "S A ( EN) 

: lem 141 

60 80 POKE21 4, ! 1 : PRINT: POKE21 7 , 6 : INPUT"NUO 
VO VALORE" ;C ; rem 52 

6090 SA(EN)-C : 199 

60 96 PQKE 2 1 4, I 4 : FRI NT : POKB2 11 , 6 : PRINT ,t ALT 
RE CORREZIONI (S/N) ?" : rem 57 

6100 GOSUR70T 0 ìrem 15 

61 T 0 I F Z $ * " S " THENPRI NT " ( CLR } " :GOTO6000 

: rem 1 1 7 

6120 G0TO587 ;reni 166 

6130 PRINT" (CLR } n : rem 4 6 

6132 POKE21 4, 21 : PRINT: PORE2 11 ,0 :rem 65 
6134 PRINT" ( RVS } (WHT) ( 2 SFAZ I } C=CORREGGI 
{ 5 SPAZI}?* PROSEGUI ( 5 SPAZI} TIFINE 
{ 2 SPAZI}"; :rem 99 

6137 POKE2 14,2: PRI NT : POKE2 1 1 , 2 ; rem 23 


6140 I FF L- 0 THENF RI NT " QUES T I SONO I PRIMI 
DIECI VALORI ♦ " : K= 1 : GOTO 6 1 50 : rem 200 
6145 FRI NT" QUES TI SONO I DI Ed VALORI SUC 
CESSIVI." item 94 

6150 POKE2 14,6: PRINT : PQKE 2 1 1,10; PRI NT"DAT 
0 M SPC(1 2) "VALORE" : rem 37 

51 60 FF=0 : FORK= KTOK+9 : FF-FF-+-1 : rem 24 7 

6 165 I F K> 3 OOTHEN K= K+ 9 : NBXT : GOTO 587 

: r ero 115 


6170 PQKE 2! 4 , FE+7 : FRI NT : POKE21 1 , 1 0:PRINTK 



;TAB (27) SA(K) 

: rem 

13 

61 80 

NEXT 

: rem 

14 

61 90 

GOTO 581 0 

: rem 

21 5 

701 0 

GETZS t IFZ$ = n "OR [ Z$< > N S 

"ÀNDZ$ < > "N 

" ) TH 


EN7010 

irem 

1 95 

7020 

RETURN 

rrerti 

169 


DAI MEMORIA AL TUO VIC-20 



CON QUESTA CARTRIDGE POTRAI 
ESPANDERE LA MEMORIA DEL TUO 
VIC-20 COME VORRAI: 3K-8K-16K 

Progettata e prodotta in Inghilterra dalla Stortechip Electronics 
questa cartuccia, tramite il semplice posizionamento di micro- 
switch, ti consente un ampliamento differenzialo della RAM: 3K 
o 8K o 16 K, secondo quante richiede il programma che devi far 
girare, I contatti placcati in oro, assicurano una lunga dura- 
ta a questa eartridge che darà nuova vita al tuo Vie ?0 
Un prezzo introvabile e garanzia per 6 mesi. 

UGHT-PEN PER VJC-20 E CBM 64 A L. 54.000 T IVA 

della Stonechlp Electronics; ottima ylabiJMa e risoluzione ver- 
ticale/orizzontale. Garanzia di 6 mesi. 

CARTRIDGE COMMODORE A L. 24.500 + IVA 

CBM-64: BOI Jupiter lander - 603 Sea Wolf - 606 Clowns. 
VIC-20: 01 Avenger - 07 Jupiter lander - 10 Rat race - 12 Mole 
attack - 13 Ride on Fort Knox - 18 Voodoo Gasile - 19 Sar- 
gon chess li - 22 Cosmic cruncher - 24 Omega race. 

MODULO DI ESPANSIONE PER VIC-20 A LIRE 62. 000 4- IVA 

Questo modulo di espansione differenziata, prodotto dalla Stone- 
chip Electronics, ti consente dì utilizzare contemporaneamen- 
te (posizionando i microswitch di cui è dotato) da 2 a 4 cart- 
ridges. Aggiunge inoltre alla ROM 4K. Inserendo con respon- 
sione Vixen 16 K Ram una espansione standard di BK si otten- 
gono ben 24K RAM* E' anche dotato di una prosa per collega 
re un ulteriore modulo dì espansione. Garanzia 6 mesi 

UN OMAGGIO A CHI ORDINA ALMENO DUE ARTICOLI 

Spedire II presente MODULO D ORDINE, o Iole copia, in una 
busta, unendo L. 2.600 in francobolli per spese postali. 

s<— 

Spelile APCO a.r.l. - Cas, Post, 239 - 10015 IVREA (Torino} 

desidero ricevere quanto da me indicato. Pagherò direttamen- 
te al postino gir importi qui elencati, che sono comprensivi di 
IVA e di speso di Imballo e contrassegno, 

N. Modulo di espansione per VIC-20 a Lire 75,000 cadono 

N. Vixen Swltchable 16K RAM a Lire 95,000 caduna 

N. Ligtit“Pen a Lire 65,000 caduna 

Le seguenti Cartridge Commodore a Lire 29.500 caduna 

fmdicaro i cadici) 

O No n acquisto nulla ma desidero ricevere i Vostri cataloghi 
che usciranno nel 1985. * 

Nome c Cognome 

Vìa 

Oì«a _ CAP, 

dflla 


SUPERCONMODOflJ^/SS 47 


U lampadine molto spezio crea* 
no aeri problemi e bisogna di 
tanto in tanto eoafitnlrle^ 
Inoltre, quando ci *f aggotto dalle 
mani, o al a t accano dal lampada* 
rio, cadendo per terra al frantu- 
mano In mille pezaL 
Questo gioco di prontezza e di 
attenzione utilizza le paddle e 11 
linguaggio macchina per velociz* 
sare l'azione e per afruttare al 
meglio le poaalbllltà grafiche e 
sonore di quel fantastico compu- 
ter qual • Il C64 e del suo "fratel- 
lo minore" VEC 24. 


Wi povero Joe è alle prese con il suo 
1 capriccioso lampadario, che non ne 
vuole sapere dì trattenere le lampadine 
che il nostro amico gli applica ripetuta' 
mente Perciò la moglie di Joe. preoccu- 
pata di tener pulita la casa, tenta di non 
far cadere le lampadine per terra, cer- 
cando disperatamente di farle cadere in 
tre cesti che ha trovato rimescolando 
nel suo sconfusionato sgabuzzino, 

Però Sa moglie del povero Joe non è 
molto giovane e 1 suoi riflessi non sono 
più quelli di una volta, 

Quando le cade per terra una lampadina 
deve raccogliere i frammenti di vetro 
con uno dei cestini a sua disposizione, 
che poi le viene tolto per qualche tempo 
dal figliolo giudizioso che butta i fram- 
menti nella spazzatura. 

Perché non aiutarla nella sua faticosa 
impresa di pulizia domestica??? Con le 
paddle inserite nella porta 1 è possibile 
muovere i cesti, che possono essere di 
due larghezze differenti, selezionabili 
sia all'Inizio della partita che durante il 
gioco. 

La partita è organizzata in livelli ed è 
possibile selezionare, all 'inizio, uno dei 
sedici gradi di difficoltà disponibili [ri- 
chiesti mediante una lettera da A a P 
dell'alfabeto inglese}. 

Ad ogni livello aumenta sempre più la 
velocità di caduta Jl numero di lampadi- 
ne da raccogliere e il punteggio ottenu- 
to per ogni lampadina salvata. Ogni 
2000 punti si riceve un cestino “BO- 
NUS" fse non se ne possiedono già più 
di tre). 











Ogni volta che una lampadina cadrà a 
terra si perderà un cestino e si tornerà 
indietro dì un livello. 

Alla fine della partita, se si è realizzato 
il maggior punteggio ottenuto, è possìbi- 
le memorizzare le proprie iniziali utiliz- 
zando le paddle. 

La versione per C64 utilizza in pieno 
tutte le possibilità del computer: sprite. 
colori, rìdefinizione dei caratteri, musica 
ad alto livello. Essa impiega due routine 
in l.m. interattivamente con il BASIC: 
la prima per gestire le animazioni del 
gioco e la seconda per trasferire veloce 
mente i caratteri della ROM alla RAM, 
per poi programmarli. 

Inoltre nel programma è inclusa una di- 
mostrazione di gioco, nella quale il com- 


puter si cimenterà. 

Le prime due voci del S1D (Sound Inter 
face Device) sono usate per produrre 
gli effetti sonori del gioco, mentre la 
terza fornisce valori casuali alle subrou- 
tine in linguaggio macchina. 

Note «Ila versione per VIC 20 

La versione per 11 VIC 20 IN ESPANSO 
é scritta interamente in linguaggio mac- 
china e offre cinque livelli di gioco. 
Anche per la versione VfC 20 si utilizza- 
no le paddle per muovere i cestini. Per 
trascriverla è necessario utilizzare il 
programma MLX pubblicato in altra 
parte della rivista. 

Se non si è in possesso della cassetta 
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allegata alla rivista, è necessario, prima 
di caricare 3"MLX, battere le seguenti 
istruzioni BASIC in forma diretta, ossia 
senza numero di linea: 

POKE 44, 35: PGKE 8960, 0: NEW 

poi, dopo aver caricato in memoria il 
programma MLX e averlo fatto girare, 
bisogna rispondere nei modo seguente 


alle domande proposte dal computer: 
Inizio = 6430 
Fine - 7678 

Dopo aver salvato il programma in lin- 
guaggio macchina è possibile caricarlo 
con un semplice: 

LGAD ‘'nome prog7, 1, 1 per il nastro 
e LOAD "nome prog.\ 8, 1 per il disco. 
Per farlo girare basta dare un semplice 
RUN r 


Note alla versione per CG4 

Nel listato della versione di J Lightsa' 
ver" per C64 compare a volte il simbolo 
* ~ Questo simbolo, per una limitazio- 
ne della nostra stampante, corrisponde 
al tasto **£" (simbolo della Lira). Quam 
do incontrate 11 premete dunque il 
tasto *£". 


MLX ridotto per VIC 20 


210 

S= 643 Q :E =7678 : 

rem 

136 

300 

PRINT'MCLR} Tt ;CHR$ ( 1 4 ) : AD = S : 

rem 

56 

310 

PRINTRIGHTS ( " 0000 "+MID$ (STR$ (AD) # 

2 ) ,5 


F 0 RJ= 1 T 06 i 

rem 

234 

320 

GOSUB 5 7 0 : I FN = - ì THEN J = J *N : GOTO 3 2 0 




rem 

228 

480 

I F N< OTBENP R I NT : GOTO 3 1 0 

rem 

168 

490 

A ( J ) =N i NEXTJ 

rem 

199 

500 

C KSUM = AD- 1 NT ( AD/ 256 ) * 256 : FORI 

= 1 TO 6 : C K 


SUM^ (CKSUM+AU) ) AND 255 :NEXT : 

rem 

200 


510 FR1NTCHR$ OS) ; : GOSUB570 : FRINTCHRS ( 20 ) 

:rem 2 34 


515 IFN-CKSUMTHEN530 : rem 255 

520 PR I NT : PRI NT " E RRQRE 1 " : FRI NT : GOSUB 1 000: 



GOTO 31 0 

: rem 

104 

5 30 

GOSUB2QOO 

:rem 

21 8 

540 

FORI = 1 TC6 : POKEAD + 1 « 1 ,A{I) : NEXT 

: rem 

80 

550 

AD=AD+6 : 1 FAD<ETHEN3 1 0 

: rem 

21 2 

560 

GGTO720 

: rem 

109 

570 

N=0 : 2 = 0 

: rem 

83 

580 

print , t [<+>]”; 

: rem 

79 

581 

GETA?: IFA?-*'"THEN5B1 

: rem 

95 

585 

PRINTCHR$ (20) ; : A=ASC (A?) 

: I FA = 1 30RA 

l -4 4 


ORA= 3 2THEN67G 

: rem 

229 

590 

IFA>) 2&THENN=-A:RETURN 

: rem 

1 37 

600 

I FAO 2 0THEN6 30 

: rem 

1 0 


61 0 GOSUB69Q : IFI - 1 ANDT = 44THENN=- 1 :PRINT 



f 2 SIN] 11 ; : GOTO690 

: rem 

1 72 

620 

G0TO570 

: rem 

1 09 

630 

I F A< 4 SOR A > 5 7 THEN 5 80 

: rem 

1 05 

640 

PRINTA3; : N-N* 1 0+A- 4 8 

: rem 

106 

650 

IFN> 2 55THENA- 20 : GOSUB 1 000:GOT0600 




: rem 

229 

660 

3 = S+1 : IFZ< 3THEN580 

: rem 

71 

670 

IFZ = DTHENGOSUBl 000:GCT0570 

:rem 

1 1 4 

680 

PRINT' 1 f " ; : RETURN 

: rem 

240 

690 

$%=PEEK(2Q9) +256*PEEK{21 0) +PEEK(21 1 ) 



: rem 

149 

692 

FORI = 1 T03 : T-PEEK C S % - I > 

: rem 

63 

695 

IFT< >44 ANDT< > 5 8THENPOKES % - 1 , 

, 32 : NEXT 



: rem 

205 

700 

PRINTLEFTS ( " { 3 SIN) " ,1-1 ) ; : 

: RETURN 



: rem 

7 

720 

INPUT 11 {CLR} {GIU 1 }NOME FILE"; 

;FS 




;rem 

133 


730 PRI NT : PRINT" { 2 Gl U 1 ]{ RVS }N {OFF } ASTRO 
0 ( RVS } D f OFF } I SCO? 11 : rem TI 5 

740 GETA$:IFA$*<> ,, N M ANDA$O , 'D H THEN740 

: rem 9 1 

7 50 DV= 1 - 7 * ( A$ = " D 11 } : IFDV-8THENFS - " G : "+F$ 

: r em 158 

760 T? = : ZK=PEEK t 5 3 ) +2 56 *P£EK ( 54 ) -LEN ( T$ 

) : POKE7 82 , SK/2 56 : rem 3 

762 POKE781 , Z K - PEE K (782) * 2 5 6 : PO KE7 8 0 r LEN ( 

T$ ) : SYS654 96 :rem 109 

763 POKE780, 1 :POKE781 , DV : POKE7 &2 , 1 :SY5654 

66 treni 69 


76 5 POKE2 54 , S/2 56 : PGKE2 53 r S- PEEK (254) *256 
:POKE780 f 253 stetti 12 

766 POKE782, E/256 JPOKE781 , E-PEEK ( 782 ) * 2 56 
: SYS 6549 6 :rem 124 

770 IP ( PEEK ( 783 ) ANDl ) OR ( ST ANDl 91} THEN780 

: rem 1 1 1 

775 END 12a 

780 PRI NT" [GIU 1 } ERRORE' RIPROVA i " : GOTO? 20 

:rem 193 

84 5 POKE? 8 0,1 :POKE781 , DV: POKE? 82 , 1 ;SYS654 


66 

: rem 

70 

1000 

REM 

: rem 

165 

1 001 

PO KE3 6 8 78,1 5: PO KE 3 6 8 7 4 , 1 90 

: rem 

206 

1 002 

POR W= 1 TO 3 00 : NEXTW 

: rem 

1 1 7 

1 003 

PORE3 6 878 , 0: POKE36 874 , 0 : RETURN 




: r em 

74 

2000 

REM 

: rem 

166 

2001 

FORW” 1 5 TOO STEF - 1 : POKE 3 6 8 7 8 , 

f W;POKE368 


76,240: NEXTW 

: rem 

22 

2002 

POKE36 8 7 6,0: RETURN 

: rem 

119 


Lfghtsaver 
versione per VVC 20 


64 30 

: 01 1 

,016 

,00 0 

,000 

,158 

,052 

,01 1 

6436 

: 049 

,048 

,057 

,000 

, 000 

,000 

,190 

6442 

: 1 69 

,000 

,141 

,092 

, 003 

,141 

,076 

6443 

: 093 

,003 

, 1 69 

,024 

,141 

,01 5 

,237 

6454 

: 144 

,032 

,078 

,020 

,032 

,100 

, 204 

6460 

: 01 6 

,032 

,23 6 

,01 7 

,032 

,042 

,179 

6466 

: 01 7 

, ì 69 

,007 

,141 

,074 

,00 3 

,221 

6472 

: 1 69 

,00 3 

,141 

,064 

,003 

, 1 73 

,113 

6478 

: 0 76 

,003 

,01 6 

,024 

,032 

,203 

,176 

6484 

: 01 7 

,172 

,0 74 

, 003 

, 1 96 

,251 

,029 

6490 

: 208 

,003 

,076 

,077 

,01 6 

,032 

,246 

6496 

; 01 5 

,019 

,032 

,246 

,01 8 

,169 

,083 

6502 

; 01 0 

,141 

, 076 

, 003 

,206 

,076 

,102 

6508 

: 00 3 

,032 

, 1 08 

,01 7 

,032 

,125 

,169 

6514 

: 01 6 

,032 

,038 

,01 9 

,032 

,179 

,174 

6520 

: 01 9 

,173 

, 072 

,00 3 

, 208 

, 207 

,034 

6526 

: 0 76 

,205 

,01 8 

,169 

,000 

,141 

,223 

6532 

; 0 60 

,003 

,141 

,061 

,003 

,141 

,029 

6538 

: 0 74 

,003 

,032 

, 042 

,01 7 

,169 

, 21 9 

6 54 4 

: 00 3 

,141 

,072 

,003 

,1 69 

,01 0 

,030 

6550 

: 1 41 

,076 

,003 

,096 

,169 

,000 

, 1 23 

6556 

: 1 4 1 

,01 9 

, 145 

, 169 

, 1 27 

,141 

, 1 30 

6562 

; 0 34 

,145 

,173 

,008 

,144 

,074 

,228 

6568 

: 0 74 

,074 

,074 

, 07 3 

,015 

,056 

, 022 

6574 

; 2 33 

,003 

,01 6 

,002 

,169 

,000 

,085 

6580 

: 1 41 

,064 

,003 

, 1 68 

,162 

,002 

,208 

6586 

: 1 85 

, 1 62 

,031 

,208 

, 008 

, 1 69 

,181 

6592 

; 0 32 

,153 

, 162 

,031 

,032 

,023 

,11 3 

6593 

: 0 1 7 

,185 

,184 

,031 

,208 

,008 

,063 


5 UPÉRCOMMODORE® 4/65 - 49 




6604 : 1 69 , 032 , 1 53 , 184 , 031 , 032,037 
6610 : 023 , 01 7 , 1 85 , 206 , 031 , 208,112 
661 6 : 008 , 169 , 032 , 1 53 , 206,031 ,047 
6622 : 032 , 023 , 01 7 , 200 , 202,01 6,200 
6628 : 21 3 , 1 72 , 064 , 003 , 1 96,2 52,1 04 

6634 : 240 , 071 , 164 , 252 , 169 , 032,138 
6640 : 1 62 , 003,1 53,1 84 , 031 ,1 53,1 58 
6646 : 206 , 031 , 200 , 202 , 016 , 246,123 
6652 : 172 , 064 , 003 , 1 69 , 027 , 1 53,072 

6658 : 1 84 , 031 , 1 53 , 206,031 , 132,227 
6664 : 252 , 169 , 000, 1 53, 1 84, 1 51 ,149 
6670 : 1 53 , 206 , 1 51 , 200 , 169 , 028,153 
6676 : 1 53 , 184 , 031 , 1 53 , 206,031 ,01 0 
6682 : 1 69 , 000 , 1 53 , 1 84 , 1 51 , 153,068 
6688 : 206 , 1 51 , 200 , 1 69 , 029,1 53,172 
6694 : 1 84 , 031 , 153 , 206 , 031 , 169, 044 
6700 : 000 , 1 53 , 1 84, 1 51 , 153 , 206,123 
6706 : 1 51 , 096 , 173 , 082 , 003 , 240, 027 
6712 : 003 , 206 , 082 , 003 , 238 , 060,1 36 
6718 : 003 , 1 73 , 060 , 003 , 208 , 003,000 

6724 : 238, 061 , 003 , 162 , 004 , 160,184 
6730 : 016 , 024 , 032 , 240 , 255 , 174,047 
6736 : 060 , 003 , 173 , 061 , 003 , 032,156 
6742 : 205, 221 , 056 , 173 , 060,00 3,036 
6748 : 2 37 , 092 , 003 , 1 33 , 170 , 1 73, 1 32 
6754 : 061 , 003 , 237 , 093 , 003 , 005,244 
6760 : 1 70,14 4 , 01 2 , 173 , 060 , 003,1 54 
6766 = 141 , 092 , 003 , 1 73 , 061 , 003,071 
6772 : 1 41 , 093 , 003 , 162 , 008 , 1 60,1 71 
6778 : 01 6 , 024 , 032 , 240 , 255 , 1 74,095 
6784 : 092 , 003,1 73 , 093 , 003 , 032,01 2 
6790 : 205, 221 , 096 , 169 , 206 , 133,140 

50 SUFERCOMHOOOfiE^ 4/BS 


6796 : 167 , 169 , 031 , 133 , 168 , 173,213 

6802 : 141 , 002 , 208,251 , 1 69 , 228, 1 21 
6808 : 1 33 , 170 , 169 , 031 , 1 33,1 71 , 1 91 
6814 : 169 , 228 , 133 , 180 , 169 , 151 ,164 
6820 : 1 33 , 1 81 , 1 62 , 021 , 1 60 , 021 ,074 
6826 : 177 , 167 , 208 , 01 2 , 072 , 169, 207 
6832 : 032 , 145, 1 67 , 104 , 145, 1 70, 171 
6838 s 169 , 000 , 1 45 , 1 80 , 1 36 , 01 6,060 
6844 : 237 , 056 , 165 , 1 67 , 233 , 022,044 
6850 : 1 33 , 167 , 165 , 168 , 233 , 000,036 
6856 : 1 33 , 168 , 056 , 1 65 , 1 70 , 233,1 01 
6862 : 022 , 1 33 , 170 , 165 , 171 , 233,076 
6868 : 000 , 133 , 171 , 056 , 165 , 180,149 
6874 : 233 , 022 , 133 , 180 , 165 , 181 ,108 
6880 : 233 , 000 , 133,1 81 , 202,01 6,221 
6886 : 193 , 096 , 032 , 148 , 224 , 1 65,064 
6892 : 1 42 , 162 , 003 , 010 , 202 , 208,1 95 
6898 : 252 , 024, 101 , 1 42 , 010,101 ,1 04 
6904 : 1 42 , 1 05 , 003 , 1 33 , 1 42 , 074,079 
6910 : 074 , 056 , 233 , 01 2 , 176 , 252,033 
691 6 : 1 05,01 5 , 133 , 251 , 096 , 169,005 
6922 : 1 28 , 1 41 , 01 9 , 145 , 169 , 255,099 
6928 : 141 , 034 , 145 , 169 , 147 , 032,172 
6934 : 21 0 , 255 , 162 , 011 , 160 , 005,057 
6940 : 024 , 032 , 240 , 255 , 160 , 000,227 
6946 : 1 85 , 193,01 9 , 032 , 210 , 255,160 
6952 : 200 , 192 , 01 2 , 208 , 245 , 169,042 
6958 : 01 4 , 032 , 21 0 , 255 , 162 , 013,220 
6964 : 1 60 , 005 , 024 , 032 , 240 , 255,000 
6970 : 1 60 , 000 , 1 85 , 205 , 01 9 , 032, 147 
6976 : 210 , 2 55 , 200 , 192 , 01 2 , 208, 117 
6982 : 245 , 032 , 228 , 255 , 240 , 251 ,041 
6988 : 201 , 049,1 44 , 247 , 201 , 054,204 
6994 : 1 76 , 243 , 056 , 233 , 048 , 073,1 43 
7000 : 255,1 41 , 063 , 003 , 1 69 , 1 47,098 
7006 : 032 , 21 0 , 255 , 1 74 , 063 , 003,063 
701 2 : 024 , 169 , 000 , 105 , 048 , 202,1 36 
7018 : 208 , 251 ,141 , 082 , 003 , 1 62,185 
7024 : 003 , 1 60 , 01 6 , 024 , 032 , 240,075 
7030 : 255 , 1 60 , 000 , 1 85 , 01 0 , 020,236 
7036 : 032 , 21 0 , 255 , 200 , 1 92 , 007,252 
7042 : 208 , 245 , 162 , 006 , 160 , 01 6, 159 
7048 : 024 , 032 , 24 0 , 2 55 , 160 , 000,079 
7054 : 1 85 , 01 7 , 020 , 032 , 21 0 , 255,093 
7060 : 200 , 192 , 01 2 , 208 , 245 , 162, 143 
7066 : 01 0 , 1 60, 01 6 , 024 , 032 , 240,1 24 
7072 : 255 , 160 , 000 , 1 85 , 029 , 020,041 
7078 : 032 , 21 0 , 255 , 200 , 1 92 , 007,038 
7084 : 208 , 245 , 162 , 01 3 , 1 60 , 01 6,208 
7090 : 024 , 032 , 240 , 255 , 1 60 , 000,1 21 
7096 : 1 85 , 036 , 020 , 032 , 21 0 , 255,1 54 
71 02 : 200 , 1 92 , 01 5 , 208 , 245 , 1 62 , 1 88 
71 08 : 022 , 160 , 001 , 024 , 032 , 240, 163 
71 1 4 ; 255 , 160 , 000 , 185,0 59 , 020,1 1 3 
71 20 : 032 , 21 0 , 255 , 200 , 1 92 , 01 9,092 
7126 : 208, 24 5 , 173 , 01 7 , 145, 041 , 01 9 
7132 : 01 6 , 208 , 249 , 160,021 , 1 69,01 9 



71 38 

j 0 3 2 

,1 53 

,228 

,031 

,136 

,208 

,246 

71 44 

; 243 

,096 

,160 

,002 

,162 

,022 

,154 

71 50 

: 024 

,032 

,240 

,255 

,160 

,000 

,181 

7156 

: 1 85 

,21 7 

,01 9 

,032 

,210 

,255 

,138 

71 62 

: 2 0 0 

,192 

,018 

,208 

,245 

,032 

,121 

71 68 

: 2 28 

,255 

,240 

,251 

,201 

,089 

,240 

71 74 

:240 

,007 

,201 

,078 

,240 

,006 

,010 

71 80 

: 0 76 

,226 

,01 8 

,076 

,029 

,016 

,197 

71 86 

: 000 

,164 

,251 

, 1 40 

,074 

,003 

,1 38 

71 92 

: 1 62 

,001 

,024 

,032 

,240 

,255 

,226 

71 98 

: 1 60 

,000 

,185 

,235 

,019 

,032 

,149 

7204 

: 21 0 

,255 

,200 

,192 

,01 6 

,208 

,093 

7210 

; 245 

,096 

,172 

,074 

,003 

,162 

,026 

721 6 

: 001 

,024 

,032 

,240 

,255 

,160 

,248 

7222 

: 00 0 

,185 

,251 

,019 

,032 

,210 

,239 

7228 

: 2 55 

,200 

,192 

,01 4 

,208 

,245 

,150 

7234 

: 096 

,160 

,021 

,185 

,228 

,031 

,019 

7240 

: 208 

,028 

,169 

,036 

,153 

,2 28 

,126 

7246 

: 031 

,169 

,000 

,153 

,228 

,151 

,042 

7252 

: 072 

,152 

,0 72 

,032 

,142 

,01 9 

,061 

7258 

: 0 32 

,179 

,01 9 

,104 

, 1 68 

,104 

,184 

7264 

: 206 

,072 

,003 

,076 

,076 

,019 

,036 

7270 

:1 36 

,208 

,2 20 

,169 

,032 

,153 

,252 

7276 

:228 

,031 

,162 

,01 1 

,160 

,016 

,204 

7282 

:024 

, 032 

,240 

,2 55 

,173 

,082 

,152 

7288 

: 0 03 

,205 

,084 

,003 

,240 

,01 3 

, 1 56 

7294 

: 1 60 

,000 

,185 

,051 

,020 

,032 

,062 

7300 

: 2 1 0 

,255 

,200 

,192 

,008 

,208 

,181 

7306 

; 24 5 

,17 3 

,082 

,003 

f 1 41 

,084 

,098 

731 2 

: Q 03 

,0 56 

,073 

,255 

,170 

,169 

,102 

731 8 

: 000 

,032 

,205 

,221 

,162 

,015 

,017 

7324 

: 1 60 

,016 

,024 

,032 

,240 

,2 55 

,115 

7330 

:1 74 

,072 

,003 

,169 

,000 

, 032 

,100 

7336 

: 20 5 

,221 

,096 

,169 

,01 5 

,141 

, 247 

7342 

; 0 1 4 

,144 

, 1 69 

, 1 29 

,141 

,01 3 

,016 

7348 

:1 44 

,162 

,010 

,138 

,072 

,032 

,226 

7354 

: 1 79 

,01 9 

, 1 04 

,170 

,202 

,208 

,044 

7360 

: 2 46 

,169 

,000 

,141 

,014 

,144 

,138 

7366 

: 0 24 

,173 

,082 

,003 

,105 

,016 

,089 

7372 

= 14 7 

,082 

,003 

,096 

,172 

,082 

,012 

7378 

: 003 

,162 

,080 

,202 

,208 

,253 

, 094 

7384 

= 7 36 

, 1 92 

,255 

, 208 

,246 

,096 

, 069 

7390 

: 1 44 

,076 

,073 

,071 

,072 

,084 

,230 

7396 

: 0 8 3 

,065 

,086 

,069 

,082 

,032 

,133 

7402 

; 0 76 

,069 

,086 

,069 

,076 

,032 

,130 

7408 

: 040 

,049 

,045 

,053 

,041 

,063 

,019 

7414 

: 080 

,076 

,065 

,089 

,032 

,065 

,141 

7420 

: 07 1 

,065 

,073 

,0 78 

,032 

,0 89 

,148 

7426 

; 032 

,079 

,082 

,032 

,078 

,063 

,112 

7432 

: 0 31 

, 094 

,157 

,01 7 

, 094 

,157 

,046 

7438 

: 1 57 

,01 7 

,095 

,033 

,035 

,017 

,112 

7444 

: 1 57 

,157 

,144 

,064 

,1 44 

,032 

,20 6 

74 50 

= 157 

,017 

,032 

,157 

,157 

,017 

,051 

7456 

:032 

,0 32 

,032 

,01 7 

,157 

,157 

,203 

7462 

: 01 7 

,028 

,083 

,067 

,079 

,08 2 

,138 

7468 

: 0 69 

,144 

,030 

,072 

,073 

,01 7 

,193 

7474 

:1 57 

,157 

,083 

,067 

,079 

,082 

,163 


74 S 0 

069 

,144 

,156 

,083 

,080 

,069 

,145 

7486 

069 

,068 

,144 

,066 

,085 

,076 

,058 

7492 

066 

,083 

, 4 01 7 

,157 

,157 

,157 

,193 

7498 

1 57 

,157 

,07 6 

,069 

,070 

,084 

,175 

7504 

032 

,032 

,032 

,032 

,157 

,157 

,010 

7510 

1 57 

,157 

,080 

,082 

,069 

,083 

,202 

7516 

083 

,032 

,070 

,073 

,08 2 

,069 

,245 

7522 

032 

,084 

,079 

,032 

,083 

,084 

,236 

7528 

065 

,082 

,084 

,160 

,000 

,185 

,168 

7534 

000 

,128 

,153 

,000 

,02 8 

,200 

,107 

7540 

208 

,247 

,160 

,000 

,185 

,000 

,148 

7546 

1 29 

,153 

,000 

,029 

,200 

,208 

,073 

7552 

247 

,160 

,007 

,185 

,150 

,020 

,129 

7558 

153 

,000 

,028 

,136 

,016 

,247 

,20 2 

7564 

160 

,039 

,185 

, 1 58 

,020 

,153 

,087 

7570 

216 

,028 

,136 

,016 

, 247 

,160 

,181 

7576 

007 

,185 

,198 

,020 

,153 

,008 

,21 1 

7582 

0 29 

,136 

,016 

,247 

,160 

,01 5 

,249 

7588 

1 85 

,206 

,020 

,153 

,024 

,029 

,01 3 

7594 

1 36 

,016 

,247 

,169 

,255 

,141 

,110 

7600 

005 

,144 

,096 

,024 

,024 

,024 

, 237 

7606 

036 

,066 

,066 

,102 

,060 

,000 

,000 

7612 

000 

,234 

,117 

,0 58 

,029 

,014 

,128 

761 8 

007 

,000 

,000 

,170 

,085 

,170 

,114 

7624 

085 

,170 

,255 

,000 

,000 

,175 

,117 

7630 

094 

, 1 88 

,120 

,240 

,224 

,024 

,072 

7636 

024 

,024 

,024 

,024 

,024 

,024 

,100 

7642 

024 

,000 

,001 

,003 

,007 

,015 

,01 ? 

7648 

031 

,063 

,127 

,255 

,255 

,255 

, 1 86 

7654 

255 

,255 

,255 

,255 

,255 

,000 

,225 

7660 

1 28 

,192 

, 224 

,240 

,248 

,252 

,240 

7666 

2 54 

,000 

,024 

,024 

,060 

, 086 

,178 

7672 

203 

,000 

,000 

,000 

, 000 

,000 

,195 


LightMver 

versione per C64 

1 GOSUB550 75 

2 £=646: P0KE5 32 80,0: PGKE5320 1 ,0:POKEZ, 1 :X 

=50692 :SYSX: V-53248 Uem 89 

3 G* 54 272 ; POKEG+6 , 0 : PGKEG+5 , 0 : POKEG+4 * 0 ; P 
OKEG+6 r 2 40 : POKEG+4 ,17: PQKEG+2 4 , 1 43 

: rem 122 

4 FQKEG+6 , 2 40 : N5$ “"000GQ0 '* : GOSUB4QO 

: rem 187 

1 0 T-491 52: H= 54273 :B = 832 :C = 1 0 22 : E-495 50 : F 
GRA=BTOC : RE ADM : POKE A , M : POKER r M : NEXT 

:rem 131 

2 0 B-V+ 3 9 : EGRA -TTOE : RE ADM : PQKEA , M : POKER , M 
: POKEB ,M: NEXT : POKEG+5 , 186 : POKEG*6 r - 

; rem 124 

26 POKE2 52,208: POKE2 51 , . ;POKE253 r . :BL=872 
: POKE2 54 ,48 : rem 240 

20 POKE56 3 34 , - :PGKE1 , 51 : SYS4 94 90 : POKE4951 
3,56:PGKE49500, 1 45:POKE49501 , 253 

* : rem 2D8 

29 POKE49502 , 200 : POKE49503 ,234: SYS 4 9490 : P 
OKE1 f 55 : POKE563 34 r 1 : GOTO600 :rem 214 

60 POKE 5 3 2 8 Q , 3 * SYSX : PRX NT" { 5 GIU'} 

{ 7 SPAZI } SCEGLI IL LIVELLO- (A-PJ 

:rem ì 94 

6! GETAS :SL-ASC {À$ + * 1 " ) - 5 9 : 1 FSL<60RSL> 21 T 
BEH 6 1 :retn 170 


Syf£BCOHHOtX)fì£® t/BS SI 




62 PRI NTA$ : POKE532 80 , 1 4 : PRINT t PRI NT" 

{ 3 GIU 1 } SCEGLI L A LARGHEZZA DEL CESTO 
(P/G) M ;:P«. :rem 225 

63 GETS $ : I FS $ < > M P " ANDS $ < > 11 G w THEN 6 3 

:rem 245 

64 FRINTSS"! 5 GIU 1 } " : POKE532 80 , 6 : LV* - : PO 

KE209 , 88: POKE21 0,6: IFBW- 1 41 THENGOSUB5Q 
0 : r em ) 4 6 

65 PRI NT” PREMI <Fl > PER CAMBIARE DURANTE 

IL GIOCO" :GOSUB70Q :rem 47 

67 POKE63, . : P0KE65 , - :POKE67, # : SYSX : NS$="Q 
00000" :GOSUB202 srem 60 

69 PQKEV + 2 9 , - (S$="G"J : GOSUB3 40 : GOTO? 1 

: rem 158 

70 GOSUB200 :rent 1 21 

71 PRINT" { HOME ) [ 17 GIU')! 2 SPAZI} [CRN )P 

REMI PIRE PER GIOCARE I";Eem 68 

72 N-2 44 - PEEK (54297} :N=N*~ ( N>-2 4 } - 24 * { N<2 

4) t POKEV , N : tem 93 

73 PQKEV+29 , (PEEK(V+29)^ (PEEK ( 1 97 } -4 ) ) AND 
1 sIF (PEEK (56321 } AND4)THEN7 2 trem 159 

74 PRINT" { SU H 31 SPAZI }" : POKE254 , m : SYSTs 

I PPEEK ( 68 } THEN80 Stero 252 

76 H= 54 2 73 s PQKEF+1 1 : N= 5 : 1 = 1 2 5 : J*5 32 BO ; F 

ORA~ NTO I STEP 3 : POKE J , A srem 15 

77 POKEM , AAND (LV+5 ) *2 : NEXT : POKEF+5 , 1 86: PO 
KEF+6 t > : POKEF+1 2, 1 86: POKEF+1 3, * 

: r em 54 

79 POKEJ , . : GOTO? 0 srem 29 

B0 POKEF + 1 1 , . ; POKEF+4 r , : POKEF+1 , 1 86;POKEF 
+4,129: PO KEF+ 5 , 1 88:POKEF+6, , :ie m 30 

81 POKBV+4 , PEEK ( ( PEEK ( 7 B1 } *4) +V> : POKEV+5, 
232 : R=5Q . 9:E=V+3 : 1 0264 :rem 175 

82 FORA^BTO » STEPD : POKEE , A : N®RND (. ) *21 SM=N 

*1.4: PO KEN+BL , PEE K ( N+BL J AND RND ( . 1 * 2 5 6 

: rem 23 

83 POKEM+ F , PEEK (M+F ) QRRND ( , } *2 56 : POKE780 , 
M: SYS49540 : NEXT: POKEV + 4 1 ,0:POKE532B1 ,0 

:rem 47 

84 LV*LV-2:P = P+1 : POKEV+2 , . iLV=LV*- (LV>-1 ) 

:FORA-BLTOBL+20:POKEA, : rem 197 

85 NEXT : BL=BL~20 : IFBW-1 4 1 THENGOTO600 

: rem 1 

86 GOSU R 2 0 0 : 1 FP < 3THENGOS U B 3 4 0 : GOTO 7 1 

:rem 41 

88 I FVA L ( NS $ } “VAL { H3$ ) AND VAL ( NS $ } > OTHÉNGQ 
TD900 srem 99 

90 POKEV+2 1 , . : PRINT" (HOME) { 7 GIU 1 } {CYN} 11 
SPC ( 9} "** GAME OVER **" :BL-872:P=* 

:rem 87 

96 GOStl B 8 0 0 ; GOT06 0 0 srem 144 

100 D ATA2 55,255,255, 1 09, 1 82,21 8,27 

srem 192 

1 01 DATAI 09, 1 80, 1 3,1 82,21 6, Il , 1 09, 1 76 

srem 69 

1 02 DATA7, 255,224,0,0,0,255,255,255 

stero 220 

103 DATA91 ,109,182,45,182,216,27,109 

srem 33 

104 DATAI 76,13,182,208,7,255,22 4,0,0,0 

stero 109 

105 DATA255, 255, 255, 109,1 82, 21 8, 27, 109 

srem 139 


106 DATAI 80,13,182,216,11 ,109,176,7 

:rem 231 

107 DATA2 55, 224,0,0,0,0,0, 60,0,0,60,0 

: rem 22 

108 DATAO, 60,0, 0, 60,0,0, 60,0,0, 60,0,0 

: rem 1 1 

109 DATA60, 0,0, 60, 0,0 ,60, 0,0 ,60,0,0,60 

srem 66 

1 10 DATAO, 0,60, 0,0, 60,0,0,60,0,0,60,0 

: rem 4 

1 1 1 DATAO, 2 0, 0, 0, 85,0,1 , 9 5 , 64 , 5 , 8 5 , 80 

: rem 50 

1 1 2 DATA21 , 85,84, 1 70, 1 70, 1 70,0,0, 0,0, 0 

srem 90 

1 1 3 DATAO, 0,0,0, 0,0,0,0,0,24,0,0,60,0 

srem 247 

114 DATAO, 60, 0,0, 36, 0,0, 126, 0,0, 12 6,0 

srem 21 

115 DATAO, 255, 0,1 ,255,1 28,1 ,255,1 28,3 

s rem 60 

1 1 6 DATA253, 192,1, 253,1 28, 1 ,251,128,0 

: rem 66 

1 1 7 DATA 255, 0,0, 60, 0,0, 0,0,0, 0,0, 0,0,0 

srem 49 

118 DATAI 20, 173, 2, 220, 72, 169, 192,141 ,2 

s r em 117 

119 DATA220, 169,64, 1 41 ,0,220,1 60,120 

srem 19 

120 DATA2 34 , 1 36,16,252, 56,169,220,237 

treni 79 

121 DATA2 5, 212, 1 76,2,169,0,24, 1 05 

srem 122 

122 DATA24, MI ,0,208,104,1 41 , 2,220,88 

stero 54 

123 DATAI 72,30,208,169,8,1 33,253,1 62,2 

srem 123 

124 DATA254, 5,208,1 89,4,208,240,33,169 

srem 135 

125 DATAI 89,56,253,5,208,1 76,1 3,1 52,37 

:rem 139 

126 DATA253,240, 8, 169,0, 157, 4,209,76 

:rem 35 

127 DATAI 4, 1 93, 189,5, 208,201 ,232,20 8,5 

srem 128 

1 28 DATAI 69,1 , 1 33,68,96,232,232,6,253 

srem 98 

1 29 DATA22 4, 1 2,240,3, 76,51 , 1 92,234, 164 

treni 125 

130 DATAI 97, 192, 4, 208, 17, 165,255, 20) 

: rem 32 

1 31 DATA64 ,208, 1 1 , 1 69 , 1 , 24 , 1 09 , 2 9 , 20 8 

treni 75 

132 DATA41 , 1 , 1 41 , 29, 208, 1 32, 255, 1 64, 64 

; rem 120 

1 33 DATA2 40 ,99,1 32,64,1 73,2,208,24,101 

s r em 120 

1 34 DATA254, 1 41 ,2,208,198,2,16,84,169 

: rem 86 

135 DATA 3 ! , 1 60 , 0 , 1 33 , 2 , 1 73 , 2 7 , 2 1 2 , 1 33 

srem 55 

136 DATA254, 56,237,2,208,1 76, 8, 173,2 

stero 37 

1 37 DATA2Q8, 56,229,254,1 60,1 , 74,74, 74 

treni 91 

138 DATA74, 74, 133, 254, 56, 233, 4, 176, 225 

srem 140 

1 39 DATAI 92,1 , 208,9, 1 65,254,169,0,56 

srem 41 

140 DATA229 , 254 , 1 33,254,230,66,230,66 

srem 79 

141 DATAI 66,66,224,10,208,4,1 62,0,1 34 

srem 65 
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142 DATA66, 1 69, 80,1 57,7,208* 1 73, 2,208 

srero 90 

143 DATAI 57, 6, 208 , 234, 23 4,206,64,0 

; rem 183 

144 DATAI 69, 14 6, 1 33, 150, 198, 150, 165 

: rem 24 7 

145 DATAI 50, 141,1 ,21 2,230,9,165,9,141 

treni 63 

146 DATAS ,21 2,201 ,30,208,3,141 ,11 , 21 2 

srem 50 

147 DATAI 72,52, 3, 32,204,255,32,204,2 55 

srem 120 

1 48 DATAI 36,192,0,208,248,7 6,0,1 92/165 

; rem 133 

149 DATA251 , 248, 24, 1 Gl , 67, 1 33, 67, 1 69, 0 

s r etn 135 

150 DATAI 01, 65, 1 33, 65, 169, 0,1 01 ,63,133 

: rem 1 1 3 

151 DATAS 3 , 21 6,162, 4,181 ,63,72,41 ,1 5 

srem 23 

152 DATA24, 105, 48, 157, 19, 5, 104, 74, 74 

: rem 33 

1 53 DATA74 , 74 , 24 , 1 OS , 4 8 , 1 57 , 1 8 , 5, 202 

:rem 32 

1 54 DÀTA20 2 ,16,230,169,129,141 ,11 ,212 

srem 65 

155 DATAI 69,0, 1 33,9,1 98, 252,208, 3, 1 33 

: rem 84 

1 56 DATA68 , 96,76,92,1 92,1 60 : rem 1 22 

157 DATAO, 177, 251 ,17,253,145,253,177,251 , 

74,200,145,253,208,242 : rem 86 

158 DATA2 30, 252, 2 30, 2 54 ,165,254,201 ,52 

srem 123 

1 59 DATA2 0 8,230,96,234,238,0,201 , 1 74,0 

: rem 12 4 

160 DATA201 ,189,0,200,1 68,138,105,109 

srem 71 

161 DATAI 70,173,2, 208,1 57,0,200,234, 140, 1 
41 ,41 , 208, 141 , 32,208,1 41 , 33,208,96,32 

:rem 22 

162 DATA 4 8 , 1 26,1 03 r 1 03, 1 03 , 1 03, 1 0 3 , 1 27 

; rem 106 

163 DATA63, 49,28,60, 1 24,28,28,28,127 

■rem 41 

1 64 DATA63, 50, 1 26 , 1 03 , 7 , 1 27,11 2, 1 1 5, 1 27 

: r em 166 

165 DATAS 3 , 51 ,126,103,7,63,7,103: rem 81 

166 DATAI 27, 63, 52, 6, 15, 27, 51 , 12 7, 1 27 

; rem 32 

167 DATA7, 15, 53, 126, 96, 126, 103, 7, 103 

: rem 29 

1 68 DATAI 27,63,54,1 26,103,96,1 26/103 

: rem 3 4 

169 DATAI 0 3, 1 27, 63, 55, 1 2 6, 103, 7, 14, 2 8 

: r em 78 

170 DATA28, 29, 28, 56, 126, 103, 103, 127 

; rem 234 

1 71 DATAI 03/1 03, 127, 63, 57,1 26,103,103 

; rem 63 

( 72 DATAI 27, 7,1 03,1 27,63,1 04,0,0,0,0 

s rem 253 

173 DATA2 39,239,85,254 S rem 125 

200 N5$= " " s PORÀ“l 29&T01 303 : NS$ «NS$+CHR$ { P 

EEK(A) > ;NEXT :rem 99 

201 AA-INT (VAL (NSSJ /2000) -INT (0/2000} :IFA 

ATHENGGSUB3D0 : rem 176 

202 Q* VAL ( MS $ ) Si FQ> = VAL ( HS$ ) THENHS$ = NS$ 

: rem 147 

204 POKE53280, , :LV=LV+1 :LV$-STR$ (LV) + " 

{ 2 SPAZI}" ;IFLV>1THEN208 srem 151 


206 FORA-1 024TO1 0 57STÉP2 s POKEA , 95:POKEA+1 

,1 05:POKE54272+A,4sPOKES4273+A,10sMEX 
T : rem 1 99 

207 FORACI 984T02023:PQKEA, 104 :POKEA+S4272 

, 12;NEXT ; rem 138 

208 PRINTCHRS ( 1 9 } CHR$ ( 1 59} CHR3 { 1 8 ) SPC ( 34 ) 
CHR$ { 1 S9 } "LI GHT"CHR$ [146} ; sPOKEZ, 1 3 

; rem 86 

209 PRINTSPC (34)CHR? (1 27)CHR$ (1 8} "SAVER": 
POKEZ , 7 s PRINTSPC ( 74 ) "PUNTI X "SPC ( 74 } ; 

srem 172 

2 T 0 PRI NTCHR$ ( 5 } NS$ : POKEZ , 6 ; PRINTSPC ( 76 ) rt 

RC"SFC [ 76) "PUNTI: "SPC (74JCHRS {5) HS$ 

; rem 1 1 3 

211 PRINTSPC (34) ; : POKEZ, 6: PRINT"*"; : POKEZ 
,1 0:PRINTHD$; : POKEZ , 6 : PRINT" * " 

; rem 252 

212 POKEZ , 1 4 : PRINTSPC ( 74 } "LLV. s"SPC(75}C 
HR$ ( 5 ) LV$ ;F*54272: POKEF+20 , 1 28 

s rem 99 

21 6 POKE204 0 ,1 3: POKE204 1 , 1 4:P0KEF+19, , 

s r em 125 

220 PQKEV+1 , 2 0 5 : PO KEV+ 3,50: POKEV+ 23,3: POR 
EV+2 8, 2:POKEV+3 9, 7SPOKEF+1 8, - 

: rem 156 

222 F0RA = 4T01 4STEP2 ; PQKEV+A , . sPOKEV+A+1 , A 
*8 + 1 4 0 : POKE 2 04 0 +A/ 2 ,15: NEXT : rem 71 

223 FORA * 1 0 2 4 QTOl 0303: PGKEA , . sNEXT: POKE2Q 

4 2,1 60 : POKE 6 6 , * ; POKE2 , - : rem 34 

2 26 POKEV+3 7, 1 2 : PGXEV+38 /I 4 : FORA-4 1 T046:P 
0KEV+ A , 1 : NEXT : PQKEV+2 1,255; POKEF + 1 9 , - 

: rem 238 

228 POKEF+1 1 , 0 ; POKEF+7 , 0 : POKEF+1 3 , 1 2 9 : POK 
EF+1 2, * ; K^260-SL*LV: POKEF+20, 1 2 8 

: r em 248 

230 POKE64, LV*2 + 9 :POKE252,LV*2+9: LN-LV;PO 
KEF+1 5,255:1 FLN> 1 0PTHENLN™ 100 

treni 208 

232 POKE251 , INT(LN/1 0 ) *1 6+LN- INT ( LN/ 1 0 ) * 1 

0 : POKEF+ 1 4 , . :POKEF + l 8,1 2 9 : 1 FK< 1 THENK= 

1 : rem T 1 3 

233 POKEF+1 , - :POKEFM, , ;PQKEF + 5, É iFOKEF+6 
,1 2B:POKEF, , : PQKEF+24 , 1 4 3 : POKEF+4 , 3 3 

: rem 24 

2 34 FOKE82G , K : PQKEV+4 1 , , : RETURN : rem 156 

300 F= 54 272 : POKEF+4 , , :POKEF+5, 1 28:POKEF+6 

,128: POKEF+4 ,17 srem 209 

301 FORA * 1 T04 : ST < A) = PEEK ( 62+ A ) :NEXT:BL=RL 

+20*AA:IFBL>872THENBL=872 srem 17 

303 P-P~AA;P=P*- (P>.) sRESTORE srem 251 
310 RESTORE: FORA= 932TO832 + 20* ( 3- P) : READMs 
POKEA+1 , * :POKEA,M S rem 18 

330 POKEF+1 , INT (RND ( . } *256) ; NEXT : FORÀ= 1 TQ 
4 : POKE6 2 + A , ST ( A ) : NEXT : POKEF+ 1 , < : RETUR 
N srem 179 

3 4 0 POKEF+4 , ■ : POKEF+5 , 1 28 s POKEF+6 ,128: POK 

EF+ 4 ,33: B a 28+1 NT ( RND ( .} *8) *32:C a , 

; rem 216 

34 5 FORA^CTOB : POKEV+2 , A : POKEF + 1 , AAND 1 0 S NE 
XTs POKEF+4,, : rem 6 3 

350 FOKEF+6, ?2B:POKEP+5, - : POKEF+4 , 33 ; POKE 
F+ 1 , ■ : RETURN ; rem 189 

400 PRINT i, ÉCLR}( 6 GIU 1 } [ < 2> ]{ RVS }[ < * > I 
{ 8 DES } { C YN } "SPRINT" [<2>1 { RVS} 

{ 8 DESHCYNj { 4 DES} [<S>] ":POKB2Q4 
0,15 ; r em 114 

410 PRINT" [<2>] {RVS} { 8 DESHCYN} 

{ 4 DES} [<6>J " : POKEV+ 1,101 : POKEV+39 , 

1 sPOKEV, 32:POKEV+2l , 1 : rem 39 

420 PRI NT" [<2>1 {RVS} (DES] {YEL} (DES] 
[<5>]~f 3 SPAZI} {DES} (CYN) “ [<*>] 
[<6>]IOFFj £<*>] {RVS} ( 2 SPAZI} (DES} 
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(PURJJM 2 SPAZI} {OFF PI RVS} {DES} (RED } 
“l 2 SPAZI} {<*>) {DESHBLU) { 2 DES) 
TDESHGRN}" (<*>}{DES) |<3>) ”[<*>] ":P 
OKEV+29 1 • “rem 26 

430 PRINT" [<2>] {RVS} {DES } ( YEL} {DESÌ 

t<5>) { 2 DES) [DES}(CYN} {OFFPfRVS} 

{DES} {DES}[<6>] { 2 DES] { POR) {OFF} 

{<*>)[<£>]{ 2 DES} {RVS) {DESHRED} 

{ 2 DES] {DESHBLU} { 2 DES} [DES] 
{CRN) (OFF) [<P>] (RVS} {DESH<3>] 
{OFF}' [<*>] ":POKEV+23, . treni 185 

440 PRINT ,r [<2>] (RVS} {DES} {YEL} {DES} 

[<S>] [ 2 DES} {DES } (CYN } { 2 DES) 

(DES) [<6>] {DESp{ 2 DESllPOR} {OFF} 
[<T>] {RVS} [<*>} {DES} {RED} { 2 DES } 
{DES} {BLU} {OFF} [<*>} {RVS} {<*>P{OFF} 
^{RVS} {DESHGRS} [ 3 DES} I< 3>J “ 

: rem 87 

450 PRINT" [<2>] {RVS} {UES} {YEL] {OFF) {<*>] 
{DES} [<5>] [<*>] {RVSH 3 SPAZI MDBS} 
(CYN} ( 2 DES} {DES][<6>J {OFF}[<*>] 
{RVS} {OFF] “[RVS} {FURTI 2 SPAZI } 

{OFF PIDESJTrED} [<*>) {RVS} lOPFT 
{RVS} { 2 DES} {BLU} {OFF} [<*>]/■ 

{ 2 DES } { GRN } [<* >] { RVS } {OFfTìDES} 
(RVS}[<3>] 11 : rem 18 

460 PRINT" [ < 2 > ] {RVS} { 6 DES}[<5>] "tPRIN 
T w [ < 2> ] [RVS] { 3 DES} l<5>] {OFF] {<*>] 
{RVS} ( 2 SPAZI} {OFF} “"SPRINT" t<2>] 

{ RVS } { 4 SPAZIH<*>]I 3 GIU 1 } ** 

tram 123 

470 PRINT" {WHT}{ 4 SPAZI }USARE LE PADDLE 
NELLA PORTA N [ <V> } 1 * " : RETURN : rem 163 
500 QW=491 64:RW=4951 7 srem 172 

51 0 FORAW= - T02 2 ; BW=PEEK ( AW+QW) : P0KEAW+QW * 
PEE K ( AW+Rtf) : POKEAW+RW , B W : NEXT 

srem 109 

520 IFBW=1 41 THENPQKE49262 , 96 : POKE4923Q , 63 
l POKE4 9378, 52: PO KE 49379, 3: GOTO 54 0 

treni 129 


530 P0KE4 9262, 1 65 : POKE4 9230 , 1 4 : P0KE49378, 
64 : POKE4 9379 , 0 : POKE4 94 81 , 252:RETURN 

:rem 199 

540 POKB494 01 ,255: RETURN :rem 180 

550 IFPEEK(51 4573 ^11 4THBNG0T056G : rem 123 
552 HS$="0QG0QQ":HU$-"C-64":GOSUB590 

:rem 170 

560 HT$*" " : FORARSI 450TG51 467 : HT$=HT$+CKRS 
{PEEK (A) ) l NEXT : rem 208 

562 HS$*LEFT$(HT$,6) :HU5=RIGHT$ (HT$ * 4} 

:rem 166 

564 RETURN : rem 127 

590 HT$=HS$+HU$+" 11 : FORACI TOLEN (HT$ ) : POKE 
51 457+A, ASC (MIDS £HT$ , A, 1 } ) : NEXT: RETUR 
N srem 179 

600 PO KE 5 3 2 6 9 f . : IFPEEK £ 491 64) -1 *1 THENGOSU 
B50Q:IFSL»QTHENSYSX:NS$“ H 000000" 

srem 129 

605 PO KE 53272, 28: PRINT" { HOME } { 12 GIU*} 

{YEL} [ 5 SPAZ I } PREMI <Fl > PER INIZIAR 
E." srem 201 

607 I FS L* OTHENS L E 6 : GOSUB 700 :rem 202 

61 0 GOSUB 2 02 : GOSUB 34 0 : POKE2 54 , 0 : FOKE8 20 r 2 
55 : POKE6 B , 0 : SYST :rem 231 

620 IFP~2THENP=1 :BL=BL+20 ; rem 243 

630 IFPEEK £68) =lTHENGOTQ80 :rem 74 

640 BL-972 :S YSX: PO KE 54296,0: POKE53269 , 0 : P 
OKE 532 0 0, 0 : GOSUB 8 0 0 : G0TO6 0 srem 38 
700 RESTORE : B - 5 8 9 : FORA= . TOB : RE ADM : NEXT : FO 
RA-.TQ1 0:READM: J-M*8 + 1 22 88 : rem 2 52 

7 1 0 FORB = . TQ7 t RE ADM : POKEB+J , M : NEXTB , A : RET 
URN : rem 1 32 

800 RESTORE : FORA - 8 3 2T08 9 5 : RE ADM : FQKEA ,M:N 
EXT S POKE54 273 , * : RETURN :tem 93 

900 F= 5 4 2 7 2 ; FORA - 0TO 2 4 : POKEF+ A f , S NEXT: A$~ 
"*I L PIU* FORTE*" : FOKE64 6,6: GOSUB990 

;rem 75 

91 0 PQKE646, 7 : POKEF+6 , 240 : PGKEF+4 , ì 7 : POKE 
F+2 4 r 1 43 ; rem 68 

92 0 FORACI TOLEN{A$) : FORB- . T02 0 OSTE? 1 0 S POK 
EF+1 r B : NEXT : PRINTMID$ (A$, A, 1 ) "{DES}"; 
: NEXT :rem 85 

930 POKEF+24, 1 40:A=1 397 :tem 239 

940 PRINT" { 13 GIU 1 } {CYN} [ 8 SPAZI} USARE 
LA PADDLE PER CAMBIARE . [GIU '} " 

srem 251 

941 PRINT"USARE FI RE PER MEMORIZZARE * 11 

: rem 127 

942 PRINT" {HOME} j 9 GIU 1 } [<6>J 

f 13 SPAZI} {<#>} l<8>] [<0>! f < 0 > 1 " : H 

U5^"" rrem 193 

943 POKEA+40, 30 ; PQKEA+F+40 , 1 Q;P0KEF+A,1 

; rem 221 

945 B- 2 9 - PEEK £ 54 2 9 7 )/ 9 : PO KE A , B : PO KE 6 4 6 , £P 
EEK (64 6) +1 ) AND 2 5 5 : GOSUB990 srem 125 
950 POKEF+1 , B*8+l 5: IFPEEK (56321 ) AND4THENG 
0T0945 srem 33 

955 POKEF+4, 1 29 : FORCATO 9 OSTEFl * 5:POKEF+1 
,C : NEXT : FOKEF+4 ,17: POKEA+40 , 32 

srem 75 

960 A^A+2 : Hl)$ -HUS +CHRS ( B+6 4 ) : I FA< 1 405THEN 
943 :rem 231 

962 PRINT" { 4 GIU 1 } " : POKEF+4 , 0 : PQKE51 4 57 , 
114 uem 81 

965 GOSUB 5 90 : PRINT" {HOME } ” : FORACI TOl 3 

:rem 183 

970 PRINT" { 32 SPAZ I NEXT : GOT09Q 

srem 198 

990 PRINT" { HOME) { 2 GIU’HDESjUt 29 *}I H S 
PC £9) "B"5PC £29) "B" - tram 65 

995 PRINT"lDES} J{ 29 MK{hOME}( 3 GIU'} 

{ 2 DBS}"; : RETURN trem 191 


54 sureHcoMMOCOfir 5 - 4 p* 






Giudo Carducci 

LE APPLICAZIONI 
DEL COMPUTER 
NELL'UFFICIO 
MODERNO 

Questo fibre vuole essere un 1 in tradu- 
zione all 'informatica e, nel contem- 
po, una guida all 'utilizzo consapevole 
dello strumento del giorno, il perso- 
nal computer, neir ufficio moderno e 
nello studio professionale. È rivolta 
pertanto, ad un vasto pubblico: ad- 
detti ai vari settori dell'azienda, qua- 
dri, dirigenti, ingegneri, architetti, 
professionisti in genere 
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Mietasi Browrìe 

UNITÀ A DISCHI PER 
MICROCOMPUTER 

Il libro, destinato a ietton con una 
buona conoscenza di base dell uso di 
un calco latore e del linguaggio BA- 
SIC, descrive il funzionamento defl'u- 
nìtà a dischi di un personal computer 
e il significalo dei comandi relativi, 
con particolare attenzione per le di- 
verse tecniche di gestione dei li le su 
disco. 

Il fibre è arricchito di diversi pro- 
grammi esempio in BASIC Commo- 
dore 4,0, retativi alle diverse tecniche 
di organizzazione e gestione dei file. 
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Mauro Salvemini 

URBANISTICA 
E INFORMATICA 

Sempre più vaste sono le applicazio- 
ni deli' informatica in ogni settore del- 
la vita e del lavoro, e in particolare 
quelle osila computer grafica Nean- 
che mestieri e professioni con una 
origine antica come Tardi itene o 
l'urbanistica si 'salvano* dall'onda 
deinnformatica. 

Un entusiasta utilizzatore di quest'a- 
rea culturale racconta in questo libro 
per i co neghi e gli studenti di archi 
lettura e di urbanistica tuffi i vantaggi 
e gli avanzamenti possibili nella pro- 
gettazione e lo studio di nuovi edifici, 
complessi edilizi o urbani grazie alla 
computer grafica 
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Tongoni 

LA COMUNICAZIONE 
CAMBIATA 

Questo libro vuole offrire una occa- 
sione a tutti i suol lettori per analizza- 
re, scoprire e potenziare le proprie 
capacità comunicative e divenire pro- 
tagonisti reali di una ampia trasfor- 
mazione in corso, di cui qno degli 
aspetti più evidenti t costituito dal l'e* 
spandersi progressivo delle tecno- 
logie. 
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Arthur Naiman 

WORD STAR 

Perché un computer, anche di cate- 
goria micro. sia utile nell'attività di 
ufficio è essenziale che permetta 
anche di effettuare l'elaborazione dei 
testi, con tutte le funzioni che ciò 
comporta, I prodotti software a dà 
destinati sono oggi moltissimi ma 
solo alcuni emergono per completez- 
za e flessibilità: fra questi Wordstar è 
sicuramente uno dei più riusciti 
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Un programma di «iiittlulont 
«lorica ch< ti ronderà protagoni- 
sta di una dallo pio grandi impre- 
sa nella storia dalle esplorazioni 
via mare: arrivare In India attra- 
verso la circumnavigazione del- 
r Africa* Par C64. 


L a storia dei programmi di simulazio- 
ne di eventi storici risale agli albori 
del personal computer: coloro che han- 
no avuto a che fare con Tormai mitico 
PET 2001 sicuramente si ricorderanno 
di alcuni di essi. SUPERCGMMODORE 
ti presenta una versione dovutamente 
aggiornata di questo tipo di program* 
ma. 

Lo scenario storico di VERSO LE IN- 
DIE è la fine del XV secolo: l'epoca 
delle grandi scoperte geografiche. Sei 
un audace capitano di vascello porto- 
ghese che, stimolato dalle possibilità di 
gloria e di altissimi guadagni, decide di 
battere sul tempo Vasco De Gama, arri 
vando a trovare una via per 1* India at- 
traverso est, partendo da Lisbona e ten- 
tando di circumnavigare per la prima 
volta l' Africa. Durante il viaggio puoi 
incontrare i medesimi pericoli affrontati 
dai veri esploratori: fame, sete, navi pi- 
rata. indigeni, tempeste, ammutina* 
menti e attacchi dei mercanti arabi. La 
subroutine alla linea 2200 provvede a 
fornirti le regole del gioco. Alla fine di 
ogni settimana puoi osservare una map- 
pa con la tua attuale posizione e osser- 
vare la situazione completa della tua 
nave. Le miglia percorse dipendono dal 
tempo atmosferico incontrato; ogni set- 
timana le tue riserve di cibo, acqua e 
provviste di materiale (vele, ecc.J dimi- 
nuiscono di una unità. Se il tuo viaggio 
dura da più dì 30 settimane, anche il 
morale dei tuoi uomini comincia a scen- 
dere al ritmo dì ima unità ogni 7 giorni. 
Ogni settimana devi affrontare una nuo- 
va avventura; la lìnea 400 manda II prò 
gramma all 'e vento appropriato. Nella 
prima parte del viaggio incontri balene 
ed altre navi e affronti terrìbili tempe- 
ste. Anche dopo il passaggio del Capo 
di Buona Speranza, e rincontro con un 


esperto pilota indiano, puoi sempre es- 
sere attaccato in qualsiasi momento da- 
gli arabi. 

Se hai navigato abbastanza da visitare 
le isole Canarie e poi quelle di Capo 
Verde, le tue scorte e il morale deh 
T equipaggio migliorano. A volte il capi- 
tano di una nave incontrata per caso 
può sfidarti ad una gara di velocità: se 
vinci, oltre alla posta in palio ottieni an- 
che un aumento del morale, ma se per- 
di, i tuoi marinai saranno sempre più 
scontenti. Quando incontri una balena 
per la tua strada puoi decidere se tenta- 
re di arpionarla oppure proseguire; uc- 
cidendola provochi ancora un migliora- 
mento del morale. 


Ogni tanto avvisti un estuario di fiume, 
facile approdo per la tua nave. Se deci- 
di di fermarti, potrai risanare le tue 
scorte e far svagare l marinai, ma qual- 
che volta verrai visitato da indìgeni. Al- 
cuni di essi sono amichevoli e ti offri ran 
no dell’oro In cambio delle solite cara- 
battole. ma certe volte la tribù tl attac- 
ca. Devi a questo punto digitare il co- 
mando CORRERE seguito da RETURN 
il più velocemente possibile, per battere 
in ritirata e salvare la nave. Segui la 
stessa procedura, se vieni attaccato dai 
mercanti arabi, gelosi delle loro rotte 
commerciali; lo stesso Vasco De Gama 
ebbe numerosi dì questi sfortunati in- 
contri. 


56 - SOPOtCOMMOUORE® 4/89 


Importanti routine del 
programma 

440-660 Caccia alle balene 
710 1100 Incontro con altre navi 
1120-1430 Sbarco in estuario ed in- 
contro con gli indigeni 
ì 150-1700 Incontro con mercanti ara- 
bi 

1720 1960 Stampa giornale di bordo 


2530-2750 Stampa mappa 

NOTA B£NE; In questo listato il carat- 
tere [SI I ITT £] appare come segno — 
sottolineato nelle seguenti linee di pro- 
gramma; 

130 2610 

160 2620 

310 2630 


320 2640 
500 2650 
920 2660 
2560 2700 
2580 2720 
2590 2730 
2600 2740 


Quando digiti il programma presta at- 
tenzione a queste linee! 


Verso le Indie per C64 


1 00 
1 1 0 

1 20 


1 30 


1 40 

1 50 
160 


1 70 
1 80 
1 90 

200 

21 0 
220 


230 


240 

250 

260 

270 

280 

2 90 

300 


DIMMI (7) ,M3 f 6) :X=RND(-TI) treni 87 
FG-1 , 6 r KB = 1 51 tHP-72 : PRI NT" 1 CLRl : IFPE 
EK ( 1 02 4j *32THENKB S 7 97 : HP = 29 trem 94 
M$ [0) :M$ ( 1 ) -"FERMATA ALLE ISOLE CA 
NARIE":K$ {5j="TERRAt E ' CALCUTTA I " 

:rens 112 

DH$>"{ 2 SPAZI } [<L>] (Gl IT 3 I 3 SIN) 
[<*>]{RVS}{ 3 SPAZI! [<*>] IGIU' ) 

{ 4 SIN){ 4 SPAZI} tGIU'H 4 SIN) 

{ 4 SPAZI} {GIU* } { 5 SIN}~{ 3 SPAZI! 
{OFFpfGlU'H 3 SIN) i<L>] [GIU r } 

{ 4 SIN} [<*>]{RVS} l 6 SFAZIHOFFP 
» * ; r em 1 46 

M$ ( 2) » "ISOLE DI CAPO VERDE" : H$ ( 3) = "DO 
PPIATO IL CAPO DI BUONA SPERANZA" 

: e era 218 

MS { 4) -"RACCOLTO UN PILOTA INDIANO" 

; r era 210 

YS$ ” " -{GIU* } {SIN] { RVS } { GIU 1 }{SI«} 
{OFFJ-TGIU* } { 2 SIN }(<*>] {RVS} [OFF} 

“ " : HS$ = " { RED } ^{GIIT } {SIN} {RVS] Z { OFF } 

Tgiu 1 HsinMgiu'H 2 SINj [<*>]Trvs} 

{ OFF J ” " :rem 149 

MSS-"TdES)"+CHRS ( 20) + n { GIU T ) ":MS$»MS$ 
+MSS :MS$-MSS+MSS trem 53 

WD$ (1 ) ^BONACCIA" :WUS (2) - "MOLTO CALMO 
" : WH$ ( 3) =" VENTI FAVOREVOLI" :rem 12 
WUS (4) ="FORTE VENTO IN POPPA" ì WH$ ( Sì “ 
WH$ (4) :WH$ (6) -"DEBOLE BURRASCA" 

: e era 145 

M%(T ) =50:M% (2) -1 00 : M% { 3) =1 50 : MI ( 4 ) *20 
0:M%(5) *250:M% (6) *300 : MI ( 7} - 50 

: rem 7 

GGSUR2 53 0 : rem 221 

DT$«"{ 2 SIN). (GIU 1 } {SIN} - { 2 SIN}. 

{ 2 SIN} . (GIU 1 } (SIN) « {GIU 1 } (SIN) » 
{GIU r ]{SIN}. IGIU 1 }|SIN} . { 2 SIN}. 

| GIU 1 } {SIN}* {GIU 1 ) {SIN} . {GlU r } {SIN} . 
{GIU 1 } . . {GIU 1 } . • * {GIU* } (SIN) . {GIU* } 
{SIN) . {GIU f ) {SIN) . {GIU T } {SIN} « {GIU 1 } 
{SIN}.* : r era 165 

DTS=DT$ + "{GHT } [SIN} * (GIU 1 ) {SIN}, 

{GIU r ) , (GIU 1 } , . . . {su} { sin}, { su} , {su} . 
{SU} . {su} ( sin) . {SU} {SIN} . {SUJ . {SU} 
[SIN) * {SU} {SIN} . {SU} {SIN} ■ {SU} , {SU} . - 
tt n : rem 1 65 

DT$ = DTS + U . {SU } * { SU) {SIN}." treni 3 

DEFFNR(X) *INT(RND (1 ) *X+1 ) s rem 179 

F$ = "{ 2 SPAZ I } < • {< 2 ^ >1 V{ 13 SPAZI} 
t,[< 2 I > ] N{ 34 SPAZI}" : rem 115 

F$=F$+"{ 28 SPAZI]" irera 25 

FS =?$+"<.[< 2 +>]V{ 40 SPAZI} (, 

[< 2 +>}N{ 15 SPAZI}" S retti 20 

F$=F$+"{ 28 SPAZI}" rrem 27 

□$ = "{H0MEH 32 Gl U 1 } " : rem 175 


310 


320 


330 

340 

350 

360 

3 70 
380 

390 

400 

410 

420 

430 

440 

4 50 

4 60 

4 70 
4 80 
4 90 


500 

51 0 

520 

530 

540 

550 


560 


570 

580 

590 

600 


S$ = *{ 3 SPAZI} [<M>]{ 2 SPAZIH<M>] 
{GIU * } { 5 SIN} [ < 3 +>} !< 2 +>]{GIU , Ì 

{ 6 SIN} [< 3 ^>] [C 2 ~>] {GIU 1 } 

[ 6 SIN} {< 3 +>] [< 2 +>) [GIU') 

[ 4 SIN } I <G > 1 [<M>] { GIU * ] { 6 SIN} 

[<*>} {RVS} { 3 Z) {OFF}"" treni 136 
SS$ = "[ 3 SPAZI}T<M>H 2~SPAZI}[<H>] 

( GIU 1 } { 5 SIN} [< 3 +>} {< 2 +> 1 {GIU 1 ) 

{ 6 SIN } | < 3 “>} [< 2 ">){GIUM 

{ 6 SIN ] [< 3 +>j (< 2 +>} {GIU 1 } 

{ 4 SIN} [<G> ) f <M> 1 [GIU* 1 { 6 SIN) 

{ < *> ] {RVS ) { 5 SPASI} (OFF}^" = rem 78 
GOSUB2 2 0 0 treni 2Ì8 

ML=8 : GOSUB 1 71 0 : FORWK-1 T052 I Z = FRE ( 0} :F 
ORI' 1 TOT OtGETAS tNEXT trem 102 

GOSUB2Q40 ; POKE5 3 2 81 , 3 rrem 169 

GOSUB? 710 :rera 226 

GOSUB1970 : rem 235 

X-FNR(GG) : IFGG-6THENX= 2 *FNR ( 4 ) - 7 

;rera 168 

IFML<! 200ANDX-4THENX-1 :rem 84 

ONXGOSUB4 30, 700, 430, 1 1 1 0 , 1 4 40 , 1 54 0 , 1 5 
4 0 : r era 2 4 6 


FD=F0-1 :SP»SP-1 ; WT= WT- 7 : I FWK> 30THENCH 
=CH-1 :Eem 118 

NEXT srera 213 

: :rera 209 

DZ = 1 7+1 NT ( 8 *RND (1 } ) item T0 

P RI NT " { CLR } AVVISTATE DELLE BALENE" 

:rera 193 

PRI NT "{GIU* ) VUOI TENTARE IA FORTUNA? 
(S-N) " : reir 220 

A$ = " " : GETA$ : I F A$ - "N "THE N6 4 0 :rem 7 90 
I F A8 < > " S "THEN 4 7 0 :rem ? 07 

PRI NT " {CLR } (GIU 1 }{ 11 SPAZ T } W{ GIU * } 
f S IN ) { <+> 1 { GIU 1 } { 3 SIN} {< + >] V" 

: rem 190 

PRI NT" { B SPAZI} [<*>J {RVS} { 3 SPAZI} 
(OFFJ2" 7 46 

PRI NT " i < S> 1 J K { SPAZ I } J KJ K JK J { 2 K}JKJ 
KJKJKJK JKJkTBLK}" :rem 2Ì§ 

PRI NT " [HOME } P REMI { RVS ) H { OFF } " 

;rem 220 

GOSUB670 irem 781 

IFPBBK (KS ) < >HPTHEN53Ù treni 4 

DC=0:PRINTLBFTS (DS,3)TAB (13) " [GIU T ì 
{SINl^fGIU* } { S IN] V{ GIU * } {SIN}"; 

treni 4 

DC=DC+I t GOSUB670 :PRINTLEFT$ [D$,3+DC)T 
AB (1 3) » {GIU 1 } (SIN} GIU* } (SIN}v 
{GIU* } (SIN)"; , :rem 193 

IFDCODZ - 6THEN560 treni 247 

B$- ,, *"tOPEN3, 3;INPUTl3,B$ :CLOSe3 

trem 65 

HS»LEFTS (BS, T) trera 170 

IFH$ = w <"ORH8“ w - "GRH$ *" I < 8> 1 "0RH$-"V"O 
RH$ = " ( "ORH5 = 11 {<!>] "ORHS ■ "N^THENtì 30 

s rem 170 
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610 IFH$=" [<+>] "ORH?=" , "THEN63G :rem 59 
620 PRI NTLEFTS £ D $ , 3+DC } TAB (13)" {GIU 1 } 
{SIN}^{GIU‘ ){SlN}v[SlN} {SU} (GIU 1 } 
[SIN }^- { GIU 1 } {SIN}V { 2 SU}MANCATO" f :G 

GT064Q :rem 199 

630 FRI NT" { 7 SO] BUON COLPO" : FD=FD+ 2 

: rem 250 


640 

PRINTLEFTS (D$, 23) " { 4 SU } PREMI [RED}R 



ETURN { BLfC } " 

i rem 

81 

1 1 00 

650 

A$ *" " : GETA$ : I FA$ <>CHR$ (13) THEN6 50 


TUO 



: rem 

40 

1 1 20 

6 60 

RETURN 

: rem 

1 24 

ì 1 30 

6 70 

PRINTLEFTS (D$ ,DZ ) LEFT$ ( F$ , 39 

) 





: rem 

150 

1 ì 40 

6 80 

F$ =MI D$ ( F$ , 2 ) +LEFTS [ F$ P 1 } 

: rem 

238 


6 90 

RETURN 

:rem 

127 

1 1 50 

700 

; 

: rem 

209 


710 

PRINT" {CLR} [RED} "TAB (25) B$ 

: r em 

30 

1 1 60 

72 0 

PRINT "{BLK} AVVISTATA UNA NAVE" 





: rem 

1 87 

1 1 70 

730 

PRI NT 1 11 { RVS } hi OFF } W IC 1 NARS I 

0 { R V S } F 

1 1 80 


{OFF} UGGÌ RE" 

: r em 

74 


74 0 

A$ - " " : GETAS : I FA$ < > " A " ANDA$ < > 

"F"THEN74 

1 1 90 


0 

: rem 

51 

1 200 

750 

IFA5 = "A"ANDRND (1 ) >. 2THEN81 0 

; r em 

241 


760 

ES = * 5 ! I FA$ = "F "THE NES - . 8 : GOTO? 8 0 


1 21 0 



: rem 

70 


770 

PRINT" {GIU 1 } E T UNA NAVE PIRATA!": 

PRIN 

1220 


T" { Gl U 1 } TI VOLTI E FUGGI " 

: rem 

21 8 


7 80 

; 

: rem 

217 


790 

IFRND ( 1 ) >ESTHEN2030 

: rem 

95 


800 

GOTO! 080 

:rem 

1 54 


SIO 

FL- 0 

:rem 

1 52 



820 PRINT" {CLR} IL CAPITANO TI SFIDA AD UN 
A GARA 11 : PRINT"DI .VELOCITA 1 {GIU 1 } n 

: rem 14 5 


830 

TFRND £1 ) >, 5THBN850 


:rem 

253 


240 

:rem 

1 39 

84 0 

FRI NT "3 PEZZI DEL SUO 

ORO CONTRO 

3 BA 

1 250 

IFAS = "F "THENl 400 

; rem 

119 


RILI{ 5 SPAZ I } DELLE 

TUE PROVVISTE 

:G 

1 260 

IFRND £1 ) > , 5THENÌ 290 

:rem 

90 


OTO870 


:rem 

15 

1 270 

FRI NT" { 3 G I CJ 1 } GL I INDIGENI 

TI DANNO 

850 

FL= 1 ;FRINT H 3 BARILI 

DELLE SUE PROWIS 


DELL'ORO IN GAME IODI CIANFRUSAGLIE * 


TE CONTRO" 


: rem 

136 


H 

: rem 

240 

860 

FRI NT" 3 PEZZI DEL TUO 

ORO * " : rem 

31 

ì 280 

GP=GP + 1 0:CH=CH+1 : GOTO! 400 

: rem 

227 


870 FRI NT " {GIU 1 } ACCETT I ? {RVS}S{OFF} O 

{ RVS } N{ OFF } ?" :rem 52 

880 AS = " " : GETA$ : I F A$ = " S "THEN9 3 0 : rem 210 
890 MS$ = " { DES } " +CHRS (20) + i, {GIU t }":MSS=MSS 
+MS? :MS$=M£$+MS$ :rem 62 

900 IFA$ -"N^THENRETURN :rem 107 

910 GOTO8 80 treit 115 

92 0 YSS-'MBLKMGIU' } { S IN } { RVS } + { Gl U ' } 

{SIN} {QFF}_~ {GIU 1 } { 2 SIN }[<*>]{ RVS} 

( OFF }’"{ HS$ ” " { RED} ^{GIU' } {SIN} { RVS } 
Z{0FFT{GIU' } {SlN}-jGIU p } { 2 SIN}[<*>3 
Trvs} {OFF}~" : rem 41 

93 0 MS$ - 11 { DES } "+CHR$ (20) +" [GIU 1 }":MS$-MSS 

+MS$ :MS$ =MS$ +MS$ ;rem 57 

940 FRINT" {CLR} {BLK}”; :rem 204 

950 FRI NTTAB (36) YS$ : PRINT" { 2 GIU'} "TAB (3 
6} HS$ zi :em 9 

960 FORTUITO! 000: NBXT :rero 37 

970 YX= INT {RND ( 1 ) *ì 0) +25;HX=INT (END ( 1 ) *9) 
+ 25: IFHX- YXTHEN YX= YX+ 1 :retit 12 4 


98 0 MX=YX:W$="LA TUA" : IF YX< HXTHENMX=HX : W$ 



~ 11 LA SUA" 

: rem 

148 

990 : 

FORJ=l TOMX 

: rem 

1 37 

1 000 

IFYXCJTHENÌ 020 

; rem 

121 

1 01 0 

PRINT" {HOME} "MS $ 

: rem 

106 

1 020 

XFHXCJTHEN1 040 

: rem 

108 

1030 

PRINT" { HOME } { 6 GIU f } "MS$ 

: rem 

21 0 

1 040 

NEXTJ 

■ : rem 

78 

1 050 

PRINT" {BLK} {HOME} { 15 GIU f 

] "WS" 

NAVE 


HA VINTO" 

: rem 

59 


1 060 IFMX=YXTHENGP=GP^ (FL=0) *3 :SP-SF+3*FL 
:CH=CH+2 : rem 30 

1 070 IFMX = HXTHENGP-GP-FL* 3 : SF = SP+3 * { FL=0) 
;CH = CH-2 : rem 16 

1 080 PRINTLEFTS (D$, 23) "PREMI f RED 1 RETURN 
(BLK]" treni 60 

1 090 AS = "" :GETA$ JlFASOCHRS ( 1 3} THENl 090 

; r em 134 

: r em 162 

; r em 253 

1120 IFRND (1) >. 7THENRETURN :rem 107 

1130 PRINT 11 {CLR} HAI AVVISTATO UN FIUME" 

: r em 213 

1140 PRINT" {GIU 1 } VUOI SBARCARE PER RIFORN 
IRTI?" :rem 92 

1150 PRINT" {GIU 1 J {RVS}S{QFF} O (RVS}N 

{ OF F } " : r em 2 2 5 

1160 A$ = "" :GETA$ : I FA$<> "S "ANDAS O "N" THENl 
1 60 : rem 1 67 

1170 1FA$ = n N"THENCH-CH- 2 : RETURN :rem 135 
1180 PRINT" { 2 GIU 1 } SEI APPRODATO E TI SE 
I RI FORNITO » n : rem 245 

1190 IFRND (ì )>. 5THEN1 400 :rem 85 

1200 PRINTLEFT$ £DS, 23) "PREMI { RED} RETURN 
{BLK}" :rem 54 

1 21 0 AS“ n " :GETA$ :IFA$OCHR$ (13) THENl 21 0 

: rem 122 

1220 PRINT"{CLR}CI SONO INDIGENI 
{ 4 SPAZ I ) 0 { 3 SPAZ I } O { GIU 1 } 

{ 6 SIN] J{RVS}{RED} {BLK} {OFF}K 
[<Z>1 {RVS} { GRN ] {OFF} {BLK} |<X>] 
{GIU 1 }! 6 SIN } V{ 3 SPAZ I } V" : rem 164 

1 230 FRI NT " {GIU 1 } { RVS } A { OFF ] WIC I N ARS I OR 
{RVS }F{OFF] UGGIRE?" ; rem 24 

1 240 h$ = 11 " : GETAS : I F AS < > "A " AND A$ < > "F " THENl 


1290 PRINT " { CLR] { 2 SPAZI}0{ 3 SPAZI}0 

{GIU 1 } { 6 SIN} JfRVS} {YEL} [BLK } {OFF ] 
KE ( < Z > } {RVS} {RED} [OFF] {BLK} { <X> ] 
IGIU 1 } { 6 SIN} V - V " t : rem 143 

1300 PRINT" { 2 SU}{ 5 SPAZ I } 0{ 3 SPAZXjO 
{ GIU 1 } { 6 SIN) J{RVS} {GRN} {BLK} {OFF} 
K E ( < Z > ] {RVS} [<1>] {BLK} [OFF} [<X>] 

[Gl U 1 } { 6 SIN}V * V" : rem 192 

1310 PRINT"! 3 GIU'jAPPAIONO ALTRI INDICE 
NI 1 11 : PRINT" { GIU 1 } CORRI ALLA NAVE 1 " 

: rem 4 

1 32 0 PRINT" { GIU 1 } BATTI { BLU } CORRERE { BLK } 

E PREMI RETURN" :rem 127 

1 330 TI$ = "0 00 000 " : rem 41 

1 34 0 INPUTA$:IFA$<> "CORRERE "THE NI 3 40 

; rem 178 

1 350 IFTI < 40 0THEN1 370 : rem 191 

1360 PRINT" {GIU 1 } TROPPO LENTO. SEI MORTO . 
" : G0T02 790 : rem 37 
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1370 

PRINT'MGIU 1 IWHEW1 HAI SALVATO LA 

PEL 


LE MA PERSO" 

: rem 

tl 

1380 

PRINT'ML CIBO E L’ACQUA. 

"tCH-CH-1 




trem 

139 

1390 

GOTOl 410 

trem 

204 

1400 

FD*7 0:WT=1 G:CH=CH+1 

: rem 

89 

1410 

PRI NTLEFTS {D$ , 23) " PREMI 

{RED} RETURN 


{BLK}" 

: rem 

57 

1420 

AS = "":GETA$ tIFASOCHRS [ 1 3) THENl 4 20 



trem 

128 

1430 

RETURN 

trem 

? 68 

1 440 

t 

i rem 

3 

1 450 

IFRND [ 1 ) > . 5 THEN RETURN 

trem 

7 11 

1460 

POKE53281 , 1 2 

trem 

M0 

1470 

PRI NT" {CLR} TEMPESTA TERRIBILE" 




trem 

53 


1480 TFRND [1) > . 9THENPRINT"{GIU ' }LA NAVE N 
AUFRAGA E TUTTI MUOIONO GOTO 2 790 

trem 236 

1490 PRI NT" {GIU*) L’HAI SUPERATA , MA RAI P 
ERSO DELLE " : PRI NT "{GIU 1 ) PROW IS TE IN 
MARE” trem Ì27 

1 500 SP-SP-4 : rem 7 70 

T 510 PRINTLEFTS (D$ , 23) " PREMI I RED } RETURN 
{BLK)" treni 58 

1 520 A$-"" : GETAS : IFA$<>CHR$ ( 1 3) TRENI 520 

; rem 7 30 

1530 POKE5328Ì , 3: RETURN trem 716 

1 540 : : rem 4 

1 550 PR1NT"{ CLR] ACQUE NEMICHE" : rem 151 
1560 PRI NT" { GIU ’ } I MERCANTI ARABI TENTERÀ 
NNO DI NON { 6 SPAZI} FARTI PASSARE" 

trem 764 

1 570 PRI NTLEFTS (D$,23) ” PREMI {RED} RETURN 
(BLU)" srem 64 

1 580 AS="":GETA$ :IFA$OCHR$ (1 3) THEN! 580 

: rem 7 42 

1590 IFRND H) >, 5THENRETURN tran 116 


1 600 PRI NT" {CLR} {GIU* } " ; TAB ( 8) DH$ : PRINT" 

( HOME} {GIU T }"TAB ( 20) DH$ :rem 240 

1610 PRI NT" {HOME} { 9 GIU 1 } AVVISTATE DELLE 
GALERE ARABE" treni 109 

1620 PRINT"{GIU' }BATTI { BLU } FUGGIRE { BLK } 

E PREMI RETURN" trem 127 

1 630 TI$ = "00000 G" trem 44 

1 640 I N PUTAS : I FA$<> "FUGGI RE "THEN 1 64 0 

trem 175 


1 650 
1660 

1 670 

7 680 

1690 

7 700 
1770 
7 720 
1730 

1740 

1750 

1 760 

1 770 

1 780 


IFTK400THBNT670 tieni 197 

PRI NT "{GIU 1 }T1 HANNO AFFONDATO , "t GOT 
02790 : rem 197 

PRINT'MGIU' }IL TUO PILOTA CONDUCE IN 
SALVO LA NAVE." trem 8 

PRI NTLEFT$ [D$ , 23) "PREMI l RED) RETURN 
{BLK}" : rem 66 

A$ = "":GETA$ tIFASOCHRS (1 3) THEK1 6 90 

: rem 1 4 6 

RETURN treni 168 

* ; r em 3 

GOS UB2 5 3 0 : Q= I NT (ML/2 0 0 ) trem 114 

TPQ>lTHENPRINTLEFT$ (D$ r 5) ; "{ 9 DES) 
";LEFT$(DT$,3*Q) treni 52 

PRINT" (HOME) {BLK 1 { 2 SPAZ I } GIORNALE 
DI BORDO" : rem 7 48 

WK$=RIGHT$ ("{ 2 SPAZI }"+5TR$ (WK) , 4} 

treni 7 62 


MLS*RIGHT$ {" { 2 
FD$=RIGHTS {"{ 2 


SPAZI) "+STR$ (MLÌ f 4 ) 

: rem 7 45 

SPAZ l)"fSTR8 (FD) , 4) 

: rem 1 1 6 


SP$=RIGHT? {"{ 


2 SPAZ I } "+STRS ( SP ) ,4) 
t r em 167 


1790 GP$*RIGHT$ ("{ 2 SPAZ I } "+STR$ (GP) , 4 ) 

trem 744 

1800 CH$-RIGHTS("{ 2 SPAZ I ) "+STRS (CH) , 4) 

i rem 172 

1810 WT$-RlGHT$r[ 2 SPAZI } "+STR$ fWT) , 4} 

: rem 177 

1 820 PRI NTLEFTS (D$ , 1 4 ) TAB ( 20) "SETTIMANA 

{ 4 SPAZI )";WKS trem 102 

1 830 PRINTTAB { 20 ) "MI GLIA £ 7 SPAZI 

trem 210 

1840 PRI NTTAB (20) " C I BO { 9 SPAZI) ";FD$ 

t rem 46 

1850 PRINTTAB [20) "ACQUA { 8 SPAZI }";WT$ 

trem 158 

7 860 PRINTTAB [20) " PROW ISTE { 4 SPAZI) ";SP 



$ 

: rem 

254 

1870 

PRI NTT AB [20) "ORO { 70 SPAZI} 

";GP$ 




t rem 

17 

1880 

PRINTTAB ( 20) "MORALE! 7 SPAZ I } " ; CHS 



trem 

214 

7 890 

PRI NT" {GIU 1 } "TAB (14) W$ (G) 

: rem 

74 

7 900 

IFG=10RG=2THENPRINTTAB( 1 4}" 

PRESI 

CIB 


O ED ACQUA"; 

: rem 

193 

197 0 

IFG“ 4THENPRI NTTAB { 1 4 ) " A MALINDI" 




t rem 

222 

1 920 

IFG=5THENPRINTTAB (10) " {GIU* 

) (RVS)SEI 


IN INDIA!"; t PRINT" ( RVS) CONGRATULAZ I 


ON I ! { HOME } " ; 

i rem 

254 

7 930 

IFG* 5THENPRI NT"LA STORIA HA 

SBAGLIAT 


O* " : END 

trem 

210 

1940 

PRINTLEFTS (D$ , 24) "PREMI C" 

t rem 

249 

7 950 

A$ = " " : GBTAS : I FA$ < > "C" THENl 950 




; rem 

97 

1960 

PRI NT "{ CLR } * : RETURN 

t rem 

78 

7 970 

: 

trem 

11 


7 980 I PFD < 7 THE NP R I NT " ( CLR J E 1 FINI r rO IL CI 
BO " : P R I NT" {GIU* 1 SE I MORTO DI INEDIA . 
" trem 797 

1990 IFSP< ITHENPRINT" [CLR] SONO FINITE LE 

PROW I S TE " : P R I NT " {GIU* jsEl MORTO* "tG 
OTO2790 trem 703 

2000 I FCH < 2THENP RI NT " [ CLR } IL MORALE E * A 
TERRA" ;pgj NT" {GIU 1 ) AMMUT I NAMKNTO : TI 
UCCIDONO" trem 731 

207 0 IFCH< 2THEN2790 trem 76 

2C20 RETURN trem 764 

2030 PRINT" { 2 GIU 1 ) MA. . « " t PRI NT" {GIU 1 } I 
PIRATI TI ABBORDANO E TI AFFONDANO I* 
i GOTO 2 790 trem 247 

2040 POKE53 2 81 , 7 trem 91 

2050 WH-FNR [ 7) : G=0 : GG-5 tCM«M% [WH) *FG 

trem 89 

2060 PRINT"[CLR}{ 6 GlU*}TEMPO: "j 

: rem 1 4 0 

2070 IFWH=7THEN27 60 trem 99 

2080 PRINTWHS (WH) : IFWH< 3THENGH-CH- 1 

trem 193 

2090 IFML<800ANDML+CM>800THENG-T :WT»70tFD 
= FD+3 tSP" SP+6 ; IFFD< 7 0THENFD= 7 0 

: r em 127 

21 00 IFML<1 500ANDML+CM>1 500THENG- 2 : WT- 1 0 1 
FD - FD+ 3 : SP = SP+6 ; I FFD< 1 0THENFD = 1 0 

t trem 206 

2110 IFMLC 5000ANDML+CM> 5QO0THENG= 3 

trem 253 

2 7 20 I FML <66 0 0 ANDML+CM> 6 600 THENG- 4 

; rem 1 3 

27 30 I PML> 6 6 0 0THENGG= 6 trem 40 

2140 ML-ML+CM:Q=INT(ML/2 + # 5) ; I FML>9000THE 
NG*5 t rem 206 

2150 GOTO 2 170 trem 203 
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2160 FRI NT"P I OGGI A INSISTENTE ” ; FRI NT" 

{GIU'jRIEMPI I SERBATOI DELL * ACQUA" ; 
WT=10 : rem 90 

21 70 FRI NT LE FT$ (DS , 23} " FREMI { RED] RETURN 

{ BLK } " : rem 61 

27 80 A$ = " " : GETA$ ; I FA$ < >CHR5 (13) THE N2 1 80 

irem 136 

2190 RETURN : rem 7 72 

2200 POKE5328Ì ,13 :rem 134 

2210 FRINT'MCLR] ENRICO IL NAVIGATORE , FRI 
NCIPE DI 1 * : rem 129 

2220 FRI NT" { GIU 1 } PORTOGALLO, CREDE CHE VI 
SIA UNA VIA" :rem 74 

2230 PRINT" {GIU * JMARITTIMA PER L'INDIA, E 
D OFFRE UN" ; rem 218 

22 40 PRINT" {GIU* } PREMIO A CHI LA TROVA- V 

ASCG DE GAMA" : rem 237 

22 50 PRI NT" { GIU r } VUOLE PROVARCI, ED E 1 QU 
ASI PRONTO A H : rem 99 

2260 PR I NT " { G I U * } P ART IRE. MA LA TUA NAVE 
PUÒ 1 SALPARE" : rem 67 

2270 FRINT'MGIU 1 }OGCl i" :PRINT"{ 2 GIU'}DE 
CIDI DI SFIDARE LA SORTE * 11 : rem 150 
2280 PRI NTLEFT$ (D$, 23) "PREMI (RED] RETURN 
{BLK}" ;rem 63 

2290 A$* ,1B :GETA$ :IFA$OCHRS (1 3JTHEN2290 

: rem 14 0 

2300 WT= 1 0 : GP* 20 :rem 126 

2 310 PRINT'MCLRì ALTRI HANNO TENTATO* ALCU 
NI MORIRONO" : rem 152 

2320 FRI NT" { GIU 1 } NELLE TEMPESTE, O DI FAM 
E E DI SETE;" :rem 223 

2330 FRI NT" {GIU 1 } ALTRI FURONO UCCISI DA P 
IRATI O DA” : r em 225 

2 3 40 PRINT" { Gl U r } INDIGENI * FREQUENTI FURO 
NO GLI" :rem ì 3 6 

2350 FRI NT” { Gl U‘ } AMMUTINAMENTI, MOLTI PER 
IRONO UCCISI" : rem 100 

2 360 PRINT” {GIU 1 ] DAI MERCANTI ARABI. TUTT 
O ciO* POTRÀ'” : rem 170 


2370 

2380 

2390 

2400 

2410 

2420 

2430 

2440 

2450 

2 4 60 

2470 

2480 

2 490 
2500 

2510 

2 520 
2530 

2540 

2550 

2560 

2 570 
2580 

2590 

2600 

261 0 

2620 

2630 

2640 
2650 
2660 
2670 
26 80 
2690 


PRINT” {GIU 1 ) ACCADE RT I . " : rem 

PRINT” {GIU* } {RVS} UN ULTIMO AVVISO 
{OFF}; NON TUTTE LE NAVI” : rem 3 4 

PRINT"{GIU' }SONO PIPATE* GLI INDIGEN 
I POSSONO" : rem 54 

FRI NT” { Gl U* } ESSERTI AMICI. CIBO FRES 
CO, TEMPO BUONO" :rem 107 

PRINT'MGIU* }£ UN ABBONDANTE CARICO D 
'ORO TERRANNO” : rem 212 

PRINT'MGIU' }ALTO IL MORALE." 

: rem 93 

PRINTTAB (27] "PREMI { RED } RETURN { BLK } ” 

: rem 52 

AS - " " : GETAS : I FA? < >CHR$ (13) THEN2 440 

srem 134 

PRINT" {CLR } {GIU 1 ]"TAB(3Q)SS$ 

: rem 149 

PRINT" { 3 GIU'] PREMI {RVS]L{OFF} PER 
SALPARE DA LISBONA" : rem 185 

A$ = " " : GETAS : I F A$ <>"L "THEN2 4 70 

: rem 102 

FORI = 1 T03 0 : PRINT" { HOME } " MS$ ; PRINT" 

{ SU} ”MS$ : NEXT :rem 45 

SP=50 ;CH* 1 0 : FD=1 0 ;rem 217 

PR1 NTLEFTS ( D$ , 2 3) " PREMI { RED } RETURN 
{BLK}" : rem 58 

AS = ” 11 : GETA$ : I FAS < >CHR$ (1 3) THEN2 51 0 

; rem 130 

RETURN : rem 169 

POKE53 291 , 3 SPRINT" {CLR} " : IFML^QTHENP 
RINT”[CLRHBLK} VERSO LE INDIE" : POKE 
53280,3 : rem 62 

FRI NT” { BLK }( 36 R}{YEL}” : rem 82 

PRINTTAB ( 8) ”{RVST( 10 SPAZI) [OFF} 

[ 7 SPAZI ){RVS}{ 7 SPAZI}" : rem 179 
PRINTTAB (8) " {RVS} { 2 SPAZI) {OFF)^ 

{ 3 SPAZI} {< 2 J>) { RVS } { 19 SPAZI) 

" ; rem 199 

PRINTTAB (8) " [< 2 U>] { 3 SPASI} [<C>] 

{ 2 SP AZ I } { RVS } { 2 3 SPAZ I } " : rem 61 
PRINTTAB [4) " [<B>J f 3 SPAZ I H RVS 
[ 3 SPAZI} (OFF){ 4 SPAZI) {RVS} 


{ 19 SPAZI}" : rem 26 

PRINTTAB ( 7) "{ RVS} 8 SPAZI) {OFF} 

[ < *> ] { RVS } { 12 SPAZI) {QFFP" 

; rem 1 21 

PRINTTAB ( 6) ” (RVSJ^É 9 SPAZI) {OFF ì 
[ < * > ] { RVS ) { 2 SPAZI} [<*>] {OFF} 

{ 2 SPAZI} |<*>] {RVS} { 4 SPAZI) {OFF} 

:rem 210 

PRINTTAB { 3) ” [<B>] { 2 SPAZI) {RVS} 

{ 10 SPAZI] [<*>] {OFF) { < * > 1 {RVS } 

{ 2 SPAZI} [<*>] (OFF} { 2 SPAZI} {RVS} 

{ 3 SPAZI} fOFFP" ; rem 230 

PRINTTAB {6) ” {RVS} { 1 1 SPAZI} [<*>] 
(OFF) { < * > ] { RVS } {OFF} ~ { 2 SPAZI) 

{ RVS ) { 2 SPAZI} [OFF) "" ; rem 245 

PRINTTAB ( 6) ” (RVS) { il SPAZI } [<*>] 
{OFF} *{ 3 SPAZI) {<*>) {RVSl ” 

;rem 23 


PRINTTAB(6) ”[<*>} [RVS}{ 12 SPAZI) 

{ OFF }_^{ 5 SPAZI} [<*>]" : rem 6 

PRINTTAB (] 0} "[<*>] {RVS} { 7 SPAZI} 

{ OFF }_2" : rem 63 

PRINTTABM1)"{RVSH 6 SPAZI} {OFF} 

^ tf :rem 118 

PRINTTAB ( T T ) " {RVS} { 6 SPAZ I }{ OFF } * 

: rem 206 


PRINTTAB (11) 11 {RVS} { 
PRINTTAB (11) " {RVS} { 


6 

6 


SPAZI} {OFF}” 

; r em 20 7 


SPAZI] {OFF; ” 


; rem. 208 


60 SUPERCOMHOTÌOflE* 4.B5 



2700 PRINTTAB (1 1 ) " {RVSH 5 SPAZI} (OFF) 

: rem I T 3 

2710 PRINTTAB (11) " fRVS){ 5 SPA2I}(0FF) 

UVS)t<H>J" :rem 143 

2720 PRINTTABO 1) " { RVS] { 4 SPAZI} (OFF! 

* { RVS} " : rem 133 

2730 PRINTTAB U U "{RVS }( 3 SPAZI} [OFF] 

"I 2 SPAZI} {RVS} " :rem 134 

2740 PRINTTAB (1 1 > *' [<*>] { RVS} {OFF 

: r em 84 

2750 I FML> 0THENPRI NT* 1 { BLK ) 11 ; : RETURN 

: r em 73 

2760 PRINTTAB (20) n {GIU* }{BLK) PREMI {RVSjl 
{OFF} PER INIZIARE"; :rem 1 78 

2770 A$ = ” *' : GETA$ ; I FA$ < > " I "THEN 2 7 70 

; rem 105 

27S0 RETURN :rem 177 

2790 PRINTLEFTS (D$, 23) "PREMI (RED) RETURN 
{BLK} " : rem 69 

2800 A$ ■ " " i GETAS : I F A$ < >CHR$ {1 3) TKEN2B0Q 

i r em ì 3 4 

2810 PRINT 1 * ( CLR } { 2 GIU 1 } 20 MAGGIO 1498'*: 
PRINT**(GIU* }VASCO DE GAMA HA RAGGI UN 
TO CALCUTTA'* :rem 254 

2820 PRINT" [GIU* }5ULLA COSTA OCCIDENTALE 
DELL’INDIA," s rem 157 

2330 PRINT "{GIU* j DOPO UN VIAGGIO DI 1 1 ME 
SI Z n :rem 236 

2840 FRI NT" {GIU* )900Q MIGLIA DI NAVIGAZIO 
NE. { 4 GIU' }*' : rem 102 

2850 PRINT'* [GIU 1 } GIOCHI ANCORA? lRVS}S 

{OFF} O { RVS } N{ OFF } ™ :rem 143 

2860 A$ * '* '* : GETAS : I FAS = "S "THENRUN : r em 91 

2870 IFA$<>"N'*THEN2860 : rem 208 


2880 PRINT" {CLR} TI AUGURO DI AVERE MIGLIO 
R FORTUNA { 6 SPAZ I ) UN ' ALTRA 
( 2 SPAZ I } VOLTA ! " : rem 189 

2890 END :tem 170 
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Il Jackson iano sceglie 
tra 14 top... 



Jockson ; una grande», esauriente scelto di periodai per saper tutta dò 
che è indispenjob-le iv elettronica, inl&r morie o e personal computer 
VideogioUii, a guido indiscusso al fantastica mondo d et videogame!; 
Home Computer, a r w «jia del computer m coso ; 

Prunai Software, b rivisto dedicala al software dei personal 

Computer^ 

Bit, la primo rivisto europeo di personal computer, softwore. accessori. Jg 
più prestigiosa e più diffuso in Italia; 

Mocmarica Oggi, ,1 ponto di riferimento obbligato per chi si occupo di 
sistemi. E DP e di Office Automotian.- 

*C Magoiine. a prima rivista Italiano del sistemi MS-DOS, ftanonpl 
Computer IBM e compatibili; 


Personal ^ io rivista indi pendente per gli ulonrl di PC Olivetti, 
Cftmpvscvola, lo rivisto di informatica netto didàttico, per lo scuola 
ta fa no; 

Telecom tmkondoni Oggi, b rMsta di tetecomunicazioni e telematica, 
AvtemaiJone Oggi, il mensile delia nuovo automazione industriale; 
Ebflroeka Oggi, lo più autorevole rivisto dì elettronico professionale, 
strumentazione e componenti; 

L'Elettronfca, il quindicinale di politico industriale, componentistica, 
informatico e telecomunicazioni, 

ilektor, la più diffuso rivisto europeo di applicazioni e progettazione 
elettronico 

Strumenti musicali, il periodico di tfrumenii musicali e computer-mutic. 


Per sottoscrivere abbonamenti compilare il foglio rida e inviarti in busta chiusa a: 


r 


Gruppo Editoriali# Jackson SsJ. - Via Rosei lini, 12 - 20124 Milano, allegando assegno o fotocopia dello ricevuto di 
versamento con vaglia postale intestato a GRUPPO EDITORIALE JACKSON ■ MILANO. 


□ Sì, desidero sottoscrivere un abbonamento ai 

□ Videogjoehi ili n J L 30.000 anziché L 38 500 

□ Home Computer 11 1 nj L 31300 anziché L 38300 

□ Risonai Software ili n.l L 34,000 anziché L 44.000 

□ Bit HI n.l L 43,000 anziché L 55.000 

□ Informatica Oggi IH nj L 31,000 anziché L 38 500 

□ PC Magazine HO n.l L 40,000 anziché L 50000 

□ Personal O 110 al L 35.000 anziché L 40.000 


□ Compuscudo (9 al L 15.000 anziché L 18.000 

□ Telecomunicazioni Oggi HO al L 28.000 anziché L 35,000 

□ Automazione Oggi 111 nJ L 30-500 anziché L 38300 

□ Elettronico Oggi 11 1 nJ L 36.000 anziché L 44,000 

□ ^Elettronica 122 n.l L 44,000 anziché L 55,000 

□ Elelctor (12 nJ L 29.000 anziché L 36.000 

P Strumenti Musicali IVO nJ L 24,000 anziché L 30,000 
Attenzione per abbonamento o! Testerò le tariffe devono essere 
aumentate del 50% 


Tutti cobra che sottertcrrvonc r'obbor omeri to a due a più riviste godono d! un prezzo uberiormentc ogevòfoto, come oppOf* nello seguente tabetttoa. 
Esempio: Bit+lnfermobco Oggi L 43000 +3LQ00- 74.000 meno L 2000-L 72000 


Abbonamento 

a B riviste L 20000 in mena sullo somma degli B presi- ri abbina mento 

a 2 ri viste L 2000 In meno sullo somma del 2 prezzi d'obbonomento 

a 9 riviste L 25000 in meno sulla somma dei 9 prezzi d'abbonamento 

a 3 riviste L 4 000 in mono mila sommo oei 3 prezzi d'ni&bonomento 

a 10 riviste L 30.000 in mena solfo sommo dei IO prezzi d'abbonamento 

a 4 riviste L 7.000 m mena suda somma de< 4 prezzi d'obbonarnento 

a 1 1 riviste L 35 000 in mena sulla somma degli 1 1 prezzi d'abbono meato 

o 5 riviste L 10000 m meno sdb sommo dei 5 prezzi dabbonomeato 

a 12 riviste L 40000 in meno su*e sommo dei 12 prezzi d'abbonomento 

a ù riviste L 13000 In mena sullo sommo dai 6 prezzi d'obbonameinfo 

□ 13 riviste L 44500 in meno Mfo sommo dei 13 prezzi d'abbonamento 

a 7 riviste L 1 6.000 In mena sulla somma dei 7 prezzi d’abbonamento 

□ 14 riviste L 50.000 in meno solfo sommo dei 9 4 prezzi d'abbonamento 


O Allego assegno n* delia Banca _ — 

□ Ha effettuato versamento sul c/e postale n. 11606203 intestato a Jackson - Milana dì cui 

allego fotocopia della ricevuta 

□ Vfcgfci postale e a lego fotocopia ricevuta 

Nome __ 
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Cmh 

VSo_ 
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di S. Albarelli 


Siamo due ragazzi possessori di 
VIC 20 ed abbiamo elaborato 
questo gioco. Questo program- 
ma gira anche sa VIC Inaspiasi, 
ma attenzione... utilizza la mag- 
gior parte della memoria dispo- 
nibile. 


D igitando il “RUN* viene richiesta la 
difficoltà (14). 

Dopo di ciò appare sullo schermo il labi- 
rinto. 

Quando questo ha finito di formarsi jn 
alto a sinistra compare la pedina del 
giocatore che viene mossa mediante il 
joystick o la tastiera (con le modifiche 
indicate). 

Lo scopo dei gioco è seguire I passaggi 
evitare ì muri viola, le frecce (solo nelle 
difficoltà M 3 W e “4*), che tolgono 1000 
punti, e raccogliere i tesori posti sui per- 
corso. 

Questi sono rappresentati dai seguenti 
simboli e valgono: 

Puntini ** 10 punti 
Asterischi = 50 punti 
Pi greco = 100 punti 
Cuori = 1000 punti 
Per uscire dai posti piu intricati del labi- 
ri nto ci sono due *u negative* che, sot- 
traendo 100 punti, portano in un altro 
luogo la pedina quando vengono sor- 
montate. 

Quando si sono raccolti tutti i tesori pre- 
senti nel labirinto, se sì è superato II 
punteggio di 13000 punti, e si torna nel 
luogo più in alto a sinistra del labirinto, 
appare il messaggio “MISSIONE COM- 
PIUTA" con il tempo impiegato e. pre- 
mendo un tasto, si passa a) livello supe- 
riore di difficoltà. 

Se sa perde la partita, bisogna premere 
il tasto rosso sul joystick per ricomincia 
re una nuova caccia al tesoro. 

Questo gioco è molto ricco dì colori e 
di effetti sonori. 

Ricordiamo che nel labirinto c'è anche 
una “pedina distur batr Ice " t che passa 
laddove non ci sono tesori e che pud 
anche “mangiarvi*. Si possono commet- 
tere fino a 5 errori. 

Noi consigliamo questo gioco ai “PAC- 
pariti*. 



Se si volesse variare la velocità della 
pedina del giocatore, bisogna apportare 
alla riga 1083 queste modifiche: 
per aumentare la velocità delia pedina 
bisogna diminuire il numero X alla riga 

1083 (FGRT=ÌTGX:NEXTT) 

per diminuire la velocità della pedina 
bisogna aumentare il numero X alla riga 
1083 


Caccia al tesoro da tastiera 

In caso non si fosse in possesso del joy 
stick t per poter giocare da tastiera biso- 
gna apportare le seguenti modifiche al 
programma: 


Riga 

15 cambiare in IFC=6THENGE- 
TAS:IFA$= “ r THENRUN 

16 cambiare in IFC=6THEN15 

1083 cambiare in REM 

1084 cambiare in GETA$ 

1086 cambiare in IFA$=“P n THEN 
POKEY, 32:Y=Y-22 

1087 cambiare in IFA$="L 1 THEN- 
POKEY, 32.Y-Y-1 

1088 cambiare in IFA$= U ;"THEN 

POKEY, 32:Y=Y+1 

1089 cambiare in IFA$=“."THEN 

POKEY, 32:Y«Y+22 

Così li programma è pronto per essere 
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usato mediante la tastiera, 

1 quattro tasti da usare per muovere la 
pedina sono: 

per andare su , * . . . M P" 

per andare a sinistra * T M L" 

per andare a destra 

per andare giu *. w 

per ripartire tasto "SPACE” 

(barra di spaziatura) 

VI AUGURIAMO UN BUON DIVERTI* 
MENTO! 



Caccia al tesoro par VIC 20 


0 VA-368 7 9 : PONEVA , 1 4 3 ; PRINT" {CLR}";" 

(GIU * ) { 2 DES){BLU)+CACCIA AL TESORO* " : 

V0= 3 71 5 4 -rem 209 

1 PRINT" { PUR H GIU ' )* ( YELlBY STEFANO ALBAR 

ELLI { PUR] *" : rem 712 

2 PT-0 r€ = 0 ;r^7680+( 1 2^(22*1 2) ) : rem 71 

3 POKEY , 32 :¥=768G+67 :C=C+1 :rem 226 

4 IFC-ÌTHENPOKEVQ, 255; INPUT" { WHT } D I FF ICGL 

TA 1 Cl/2/3/4) "FA trem 114 

5 POKEVO*! 27 s I FC-1 THENPRINT" {CLR) M ; 




; rem 

23 

10 

PR I NT" ( HOME } { WHT } SCORE = " 

ft;" (bombì 


{ 76 DESlFED”; 

ireni 

29 

1 1 

PRINTC; 

: rem 

109 

! 4 

I FC = 6 TH EN P R I NT " { HOME ) (GIU r 

3 ( 7 DÉS} 



{ RVS } { PUR } GAME OVER (OFF } " : PRINT "FREMI 


{ DES ] F 1 RE" ; 

t rem 

53 

15 

IFC=6THENI FJS- 34 1 THENRUN 

: rem 

255 

1 6 

JS-PEEK ( 371 37) +PEEK(37l52) 

t IFC=6THENl 5 



trem 

115 

18 

POKEVA ,56 

; rem 

1 98 

1 9 

IFC>7 THEN7000 

% rem 

1 55 

20 

RE ADE 

:rem 

209 

21 

IF5-1 DTHEN900 

: rem 

171 

22 

IFS = OTHENPRI NT" . " ; 

: rem 

28 

24 

IFA> 3ANDS* 1 THENPRINT" ( BLU ) E {WHTj " ; 



1 20 DATAQ,0, 0,0, 7 , 0 , 0 , 0 , 1 , 5 , 0 , 0 , 3 , 2 , 0 , 0 , 0 
*2*1*0* 3*0 : rem 1 23 

1 30 DATAI , 7 , 1 , 0., 1 , 1 , 1 , 0 , 1 , 1 , l , 6 , 0 , 0, 0, 2 , 2 
, 2, 1 , 0, 1 , ì ; rem 1 30 

ì 40 DATA4,0,1 ,0,0, 3, 0,0, 1,0, 4, 2, 2,2, 2, 2,1 
,7,1,0, 1,4 trem 738 

1 50 DATAI , 0 , 1 , 0 , 1 , 1 , ì , 0 , 2 , 0 # 1 , 5 , 7* 1 , 7 , 5, 7 
* ì f 1 i 3 , 1 , 0 s rem 1 60 

160 DATAI ,0, 0,0,1, 4, 7, 0,2, 0,7, 1,7, 7, 7, 1,7 
, 7, 1 , 0, 1 , 3 ! rem 7 49 

1 70 DATAI , 2, 1 , 7 * 7 ,0,0, 0,2, 0,0, 1 ,7, 7, 7, 7, 7 
,7,0, 0,1,0 trem 7 62 

1 80 DATA2, 2, 2,2, 1 ,1,0, 2, 2, 2, 0,1, 1,7, 0,2, 7 
, 2, 1 , 0 , 1 , 0 : rem ì 37 

1 90 DATA0 ,0,0, 0,3,0, 0,0, 0,0, 0,0, 4, 0,0, 1,1 
,5, 7, 0,3,0 :rem 130 

200 DATA0 , 1 , 1 , 1 , 1 * 1 , 1 , !,1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 
,4,1,7,! ,1 : rem 128 

27 0 DATA0 ,0,0, 2, 5 ,2, 2, 2, 2,2, 2, 2, 5, 5, 0,0,0 
,0, 0,6, 2,5 : rem 149 

220 DATA2 ,2,0, 2, 0,0, 0,0, 0,0, 4, 2, 0,2, 2,2, 2 
,2,0, 0,0,0 trem 128 

230 DATAO ,0,0, 2,2, 2, 2, 2, 0,2, 0,2, 0,0, 0,0,0 
, 2 , 2 , 2 , 2 , 0 : rem 12 9 

240 DATA 3 , 2, 2, 2, 0,0, 0,2, 0,2, 0,2, 2, 2,2, 2, 3 
,2, 0,0, 0,0 :r em 7 36 

2 50 DATA0 ,0,0, 0,0, 2, 0,2, 0,2, 0,2, 0,0, 0,2,0 

,2,0,2, 2, 2 ; r em 727 

2 60 DATA2 ,2, 2, 2, 2, 2, 0,0, 0,2, 3, 0,0, 2 ,0,0,0 




; r em 

248 


,2,5,5,5*10 

: rem 

1 95 

25 

I FA< 4 ANDS=1 THENPRINT" { PUR) (RVS) {OFF} 

900 1 

ri$="Q000O0" 

: rem 

251 


(WHT} M ; 

: rem 

787 

7 000 

I F VAL ( TI $ ) ■ > 2 0 THENl 00 3 

trem 

21 

26 

IFA= 1 ANDS = 2THENPRI NT" * 11 ; 

; rem 

764 

7 002 

GOTO! 083 

: rem 

200 

27 

IFA- 2 ANDS = 2THENPRI NT" ( PUR } { RVS } (OFF) 

1 003 

B-INT(RND{T) *4) +1 

trem 

1 59 


(WHT) M ; 

; rem 

189 

1 004 

IFR^l ANDPEEK (F-22) -32THEN7009 


28 

I FA > 2ANDS- 2THENPRI NT" ( BLU } E ( WHT} " ; 




trem 

191 



: rem 

252 

1 00 5 

IFB = 2 ANDPEEK { F- 1 ) -32THENÌ 009 


35 

IFS-3THBNPRINT"*"; 

: rem 

31 



: rem 

142 

36 

I FS = 4THENPRI NT” [ <E> ] " ; 

: rem 

246 

1006 

XFB-3ANDPEEK (F+l J -32THEN1 009 


37 

I FS= 5THENPRI NT" { RED )S (WHT)”; : rem 

237 



: r em 

742 

3 B 

IFS=6THENFRINT" {blk)Trvs)u{off} (WHT) " ; 

1 007 

I FB" 4 ANDPEEK { F+22 ) «32THEN1 009 




: rem 

137 



: rem 

795 

39 

IFS- 7THENPRI NT" 

: rem 

253 

1008 

GOTO! 083 

: rem 

206 

40 

GOTO 20 

t rem 

255 

1009 

I F B - 1 THENPO KEF ,32tF a F-22 

i rem 

21 0 

50 

DATAI ,1 ,1 ,1,1 ,1 ,1 ,1 ,1 ,1 ,1 

f * 1 , 1 * 1 , 1 r 

1*1* 

1010 

iFB=2THENPOKFF, 32 : F-F-l 

: r em 

752 


1*1*1 #1*7 

trem 

87 

1011 

I F B - 3THENPOKEF ,32tF=F+1 

: rem 

ì 52 

60 

DA TAO ,0,0, 4*0, 0,1, 2, 4, 0,1 

1*2, 2/2,0, 

0,0, 

1012 

IFB=4THENPOKEF, 32:F=F+22 

; rem 

205 


0,1, 1,4,0 

trem 

84 

1013 

IFPEEK ( F- 22) -8 1 THENl 1 00 

; rem 

56 

70 

DATAO ,0,0,1 ,1 ,3,1 ,1 ,1 ,3,1 

! , 0 , 0 , 0 r 0 , 

1,1* 

1014 

IFPEEK fF~1) -81 THENl! 00 

trem 

6 


0*0,0*! ,0 

: rem 

76 

101 5 

IFPEEK (F+l ) -81 THENl 1 00 

trem 

5 

eo 

DA TAO, 0,3, 2, 2, 0,0,0, 1 ,Q,Ì 

' ,0,2,2, 2* 

2,2, 

1016 

IFPEEK (F+22) -81THEN1100 

trem 

57 


1*1 ,0,0,0 

: rem 

83 

1017 

PO KEF, 102 

trem 

253 

90 

DATAO , 1 , 0 , 1 , 1 , 1 , 1 , 0 , 1 , 3 , 0 , 0 , 2 , 0 , 0 , 

0,2, 

1 083 

FORT= 1 TO200 1 NEXTT 

trem 

179 


2, 1,0, 1,1 

:rem 

81 

1084 

JS = PEEK (37137) +PEEK (371 52) 

t rem 

197 

1 00 

DATAO,) ,0,0, 0,0,1 ,0,1,1 , 

<1 ,0,0, 0,2 

,0,0 

1085 

I FY= 7680+4 4 AND PT« >1 3000THEN1 600 



,2, 3,0, 0,0 

trem 

17 5 



trem 

55 

ITO 

' DATAO, 1 ,1,1, 1,0, 1,0, 7*2, 

1 ,2, 2*2, 2 

*2,0 

1086 

IFJS = 3 69THENPOKEY ,12iY-Y-22 

t rem 

220 


,2, 1.0* 1*4 

trem 

131 

1087 

IFJS = 357THENPOKEY, 32 s Y=Y-1 

: r em 

767 
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iosa 

IFJ5=245tHENPGKEY, 32:Y*Y+1 

: rem 

162 

1089 

IFJS»365THENPOKEY , 32 : Y-Y+22 : rem 

217 

1090 

IFPEEK (¥) = 1 60THEH1 1 00 

: rem 

237 

1091 

IFPEEK [¥) *30THENPT=PT-1 000 

: PRINT 1 

n 


{ HOME } SCORE s "PTj"{SIW}{ 

2 SPAZI]": 


GOTO noo 

: rem 

55 

1092 

IFPEEK(Y)=46 THENPT‘PT+1 Oi 

PRINT" 



{ HOME } SCORE ■ "PTf'MSINH 

2 SPAZI]": 


GOTO! 200 

: rem 

222 

1093 

IFPEEK (Y) =4 2THENPT=PT+50 : FRI NT" 



{HOME} SCORE = "PT; " {SIN ] { 

2 SPAZI}": 


GOTO 1300 

: rem 

22 4 

1094 

IFPEEK (Y) «94THEHFT-PT+10O: 

PRINT'' 



{HOME } SCORE = "PTf " {S IN } { 

2 SPAZI}": 


GOTO! 400 

: rem 

21 

10 95 

IFPEEK {Y ) =B3THENPT-PT> 1000 

i: PRINT 

» 


( HOME } SCORE - M PT;"{SINJ! 

2 SPAZI]": 


GOTO! 500 

: rem 

69 

1096 

I FY=7 B 8 9THÉNY = Y + 2 1 ; PT“PT-1 00 : PRINT" 


{HOME} SCORE = "PT; " (SIN} { 

2 SPAZI]": 


GOTO! 500 

: rem 

206 

1097 

IFY=8Q73THENY*Y-44: PT-FT-! 

00: PRINT” 


{ HOME ) SCORE * n PT; 11 { SIN} { 

2 SPftZI ) " : 


GOTO! 500 

: rem 

200 

T 099 

POKEY , 8 1 : GOT0 1 0 0 0 

: rem 

36 

noo 

POKE3 68 7 7 ,220 

: rem 

192 

ino 

FORL* 1 5TO0STEP-1 

: rem 

6 

1120 

POKE3 687 9 t L 

: rem 

123 

1 130 

FORM = ITO 1 00 : NEXTM 

: rem 

97 

1140 

NEXTL 

;rem 

81 

1150 

FOKE3 6878,0 

: rem 

98 

1160 

POKE36 877 , 0 

:rem 

98 

1170 

POKEY , 32 : GOTO 3 

:rem 

136 

1200 

PO KB 36878,5 

: rem 

99 

1210 

PO KE 36877,220 

: rem 

194 

1220 

FORT- 1 TO30 i NEXT 

: rem 

23 7 

1230 

POKE36 877 , 0 

: rem 

96 

1240 

POKE36B78,0 

: rem 

98 

12 50 

GOTO! 099 

; rem 

21 2 

1300 

POKE368 7 8,3 

: rem 

98 

1 305 

PQKE36875, 225: FORT-! TO250; 

NEXT 




: rem 

96 

1 3Ì0 

POKE36875, 235; FORT- ITO 2 50 : 

NEXT 




: rem 

93 

1 31 5 

POKE3 687 5 ,225: FORT=l T0250 : 

NEXT 




: rem 

97 

1 325 

POKE3 687 5 , 0 

: rem 

99 

1 330 

POKE3 6878 , 0 

:rem 

98 

1 340 

GOTO1099 

: rem 

21 2 

1 400 

POKE36876, 5 

treni 

1 01 

14 02 

FORH-1T02 

:rem 

57 

1405 

F0RL*254T024 0 + INT ( END (1 } *10) STEP* 

-1 



: rem 

0 

1 410 

POKE 36 876 , L 

: rem 

123 

1415 

NEXTL 

: rem 

86 

1 420 

FOKE36 8 7 6,0 

: rem 

96 

1 425 

PORTAI T02 50 :NEXTT 

: rem 

124 

14 30 

NEXTH 

: rem 

79 

1 43 5 

POKE3687 8 , 0 

; rem 

104 

1 440 

GOTO 1 099 

: rem 

21 3 

1 500 

POKE36878 , 10 

: rem 

146 

1 505 

FORL* 22 5T02 4 0 

: rem 

1 3 

1510 

POKE3 687 5 , L 

: rem 

123 

1 51 2 

FORT-ITOI 0:NEXTT 

: rem 

67 

1515 

NEXTL 

;rem 

87 

1 520 

PO KE 3 6 8 7 5 , 0 

:rem 

96 

1 525 

PO KE 36870,0 

:rem 

104 

1 530 

GOTOl 099 

: rem 

21 3 

1600 

FRI NT" {CLR} " ; j PQKE36 878 , 1 0 

; FQRL=1 28T 


02 50 : POKE368 7 5 , L: NEXTL : PO KE 3 6 875 , 

0 



: r em 

112 

1610 

POKEVA,! 43 

: rem 

82 



1 620 PR1NT ,T {GIU r ] {HOME} { PUR ì® * { YEL } BR 

AVIS5IMO{PUR}*@*0 É @" treni 15 

1 630 PRINT" (GIU 1 | {BLU] { DBS ) HM {DES}COMPIU 
TO{ 2 DES ì LA { DBS } TU A " : PR I NT " {GIU* } 

{ BLK } { 6 DES] ^MISSIONE*" treni 42 

1 640 PRI NT " ( YEL } I N ( DES ) " ; M I D$ (TI$, 3,2) i " 
MINUTI" s rem 75 

1650 FRINÌ" 1 (VELI E{ 2 SPAZI ] " ; RIGHT$ ( TI$ , 2 
);* SECONDI" :rem 81 

1660 FRI NT" {GIU 1 H YEL} & *3 * { BLU } PREMI (DBS} 
UN { DBS } TASTO {YEL} * @ * @ w ; :rem 210 

1 6 70 GBTA$:IFA$ = ,,1I THEN1670 ; retti 191 

1 680 RUN ì rem 1 96 
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In questo tauBilf gioco per C64 
lo acopo è di contatterà i tank 
avversari che sono penetrati nel 
vostro territorio* 
Contemporaneamente la vostra 
meta < di raggiungere un grado 
militare più elevato* 


G li ordini del comando di stato mag- 
giore sono di intercettare e distrug- 
gere Il maggior numero dì carriarmati 
nemici che hanno invaso il paese. 

Ma purtroppo non è possibile riconosce- 
re i carriarmati nemici da quelli alleati, 
che non recheranno alcun male ad un 
loro connazionale. 


Il gioco 

Facendo girare il programmo si ascolte- 
rà l'inno militare americano. 

Subito dopo sarà possibile scegliere tia 
uno dei tre carriarmati a disposizione, 
dei quali verrà mostrata il curriculum: 




Alta 

Media 

1. 

Tlger 

Res. 

Fuoco 

2. 

T 34 

Vel. 

Res, 

3. 

Sherman Fuoco 

Vel. 


Bassa 

Ve!. 

Fuoco 

Re$. 


In questa tabella la parola “vel.* sta per 
‘■velocità'’ e “res.” per resistenza. 
Quest "ulti ma indica il numero di colpi a 
cui può resistere il carroarmato prescel- 
to e, che corrispondono a: 

5 proiettili, se la resistenza è alfa; 

3 proiettili, se la resistenza è media 
I proiettile, se la resistenza è bassa. 


Controllo del tank 

Ogni carro armato nemico si muove sul- 
lo schermo da sinistra a destra. 



Utilizzando il joystick per muovere il mi- 
rino del proprio carroarmata è possibile 
mirare e cercare di colpire 11 tank avver 
sario: premendo il pulsante di fuoco ss 
vedrà volare la bomba, che partirà dalla 
sinistra dello schermo fino ad arrivare 
nel centro del mirino. 

Naturalmente, mentre essa compie la 
sua parabola il tank nemico tenta di fug- 
gire, aumentando anche la velocità, e 
se non viene centrato, procederà un po’ 
e poi scaricherà un colpo sul car marma- 
to americano, il quale, perciò, perderà 
un grado di resistenza. 

Se si riuscirà a colpire il tank nemico. 


esso esploderà, si acquisteranno 10 
punti e si cambierà li territorio di gioco 

Ponteggi finali e gradi 

Al termine della partita verrà mostrato 
il grado raggiunto, che viene assegnato 
a seconda del punteggio. 

Se non si totalizzerà alcun punteggio, si 
verrà banditi come una "‘burba”. Ma 
non si deve disperare, perché sarà pos- 
sibile ritentare. 

Se invece si totalizzerà un punteggio 
esorbitante, non bisogna esaltarsi, per- 
ché scendere di grado è molto facile. 
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Superfank per C64 

10 PRINT'MCLR} [HOME}"iRESTORE:V=53248:FQK 
EV+ 3 2,0: PO KEV+ 33,1 : POKEV+1 7 , PEEK ( V+1 7} 
AND247 trem 174 

1 5 PRINTTAB ( 55 ) M {BLU } (RVS } BENVENUTO 1 PRI 

NTTAB { 59 ) ™ { RED ] { RVS ] AL" :rem 45 

ì 7 PRINTTAB (55) M [RED} [ RVS } SUPERTANK ! ":PRI 
NT ;rem 158 

20 F0RQ-1T04: PRINTTAB 0 4} " [<5>3 [<N>] H : NEX 
T treni 50 

22 PRINTTAB(14) " [ < N> j [RVS}“{ 8 SFAZl] 
[<*>]*' t PRI NTTAB (T 4) " {RV$K 0 Q 
{ 2 SPAZI}{ 3 Q] [<*>]{OFF}[< 2 I>] 

[< 8 0> ] [< 3 I>]" :rem 209 

24 PRINTTAB ( 1 3) " {RVSpf 2 SPAZI }Q Q 
{ 3 SPAZI }M{ 3 SPAZI} {OFF } {< 2 U>3 
[< 8 Y> 1 [< 3 0>] w :rein 207 

2 6 PRINTTAB ( 1 3} "{RVS} { 3 SPASI H 3 0) 

{ 2 SPASI H 3 QH 2 SPAZI} {OFF}""" 

treni 79 

28 FRI NT” { 3 SPAZI} {RVS} ~{ 30 SPAZI }{<*>] 
{OFF}" t rem 103 

30 PR1NT" ( 2 SPAZI} [RVS}^{ 32 SPAZI} E<*>] 
{OFF} " : rem 96 

32 PRINT" [GRN} [< 2 +> J [< 5> 1 { RVS } 

{ 34 SPAZI} {OFF} [CRN} [< 3 +>] " 

trem 236 

34 FRI NT" [ < 3 +> 1 [ < 5> ) M W f RVS K t<*>] 

{off}w{rvs}2 L<*>ì [off}w[rvs}2 [<*'>] 

[OFF } W (RVS } 2. L<*>] [OFF}W[RVS}2 {<*>1 

{OFF} W f RVS } “ [<*>hoff}w{rvs} 2 È<*>J 
[OFF}WN{GRNT[< 4 +>] " :rem 255 

36 FRINT"L< 4 + >] [<5>]M [RVS) O {OFF} 
{RVS} Q {OFF} { RVS } Q {OFF} {RVS} Q 
[OFF} TrVS} Q {OFF} TRVS ) Q {OFF) 

{RVS} Q {OFfTn{ORN} [< 5 +>]" ; rem 148 
38 PRINT"I< 5 +>] [<5>]M{<*>] [RVSJ {OFF} 
^w[<*>] {RVS} [OFF}^WK*>] {RVS} {OFF} 
^w[<*>] [RVS} {OFF}*Wl<*>} {RVS] {OFF} 
~W[<*>] {RVS} {OFF}^WE<*>] {RVS} {OFF} 
2 TgRN}[< 6 +>]" :rem 31 

40 PRINT" [< 6 +>] [<5>] [< 26 Y>] {CRN} 

[< 7 +>] 11 :rem 239 

42 FORO 31 ! T02 : PRINT” [ < 39 +>]":NEXT 

treni 175 

43 GQSUB800 trem 127 

4 8 8=54272 : FORL^STOS+24 : POKEL, 0 : NEXT 

s rem 1 4 

50 PRI NT " { C LR } ( HOME } { WHT } rt : POKEV+3 2 , 1 ; POK 
EV+3 3 t 0 : PRI NTTAB (120) treni 137 

52 GQSUB1G00 tram 168 

60 PRINT" {CLR}{HGME} {WH?} T “: PRINTTAB (84) "C 
ARATTERI STICHE DEI CARRI ARMATI" 

225 

62 PRINTTAB { 49} "{RVSHGRN} { 2 SPASI} ALTA 

{ 2 SPAZI} {OFF} { 3 SPAZI} [RVS} {YEL] ME 
DIA {OFF } { 2 SPASI} {RVS} [WHT} BASSA 
{OFF } 11 • rem 103 

64 PRINTTAB (40) " { GRN } { RVS } 1 _ TIGER{QFF } 

{ 4 SPAZI } RES * { 6 SPAZIHYELJFUOCO 
{ 4 SPAZI} {WHT} VELO* trem 175 

66 PRINTTAB (40) "[ YEL} { RVS } 2 ■ T- 3 4 (OFF} 

{ 5 SPAZI] {GRN} VEL. { 6 SFAZ I }{ YEL } RES . 

{ 5 SPAZI) {WHT} FUOCO” :rem 189 

63 PRINTTAB {40} " {WHT} { RVS } 3 . SHERMAN {OFF ì 

{ 2 SPAZI) [GRN} FUOCO { 5 SPAZ I } { YEL } VEL 
*{ 5 SPAZI] {WHT} RES- " : FRI NTTAB { 1 2 0) 

treni 207 

70 PRINT : INPUT* 1 { HOME} ( 15 GIU'} 

{ 6 SPAZI} QUALE TANK DESIDERATE” ; TA 

: r em 100 


72 IFTA<lORTA>3THEN80 :rem 56 

78 PRINT" { 4 GIU 1 } { 8 SPAZI} PRONTO ALLA B 
ATTAGLIA 1 n : FORQ = l TO500STEP . 5 : NEXT : GOTO 
8 5 : rem 58 

80 PRINT" { HOME } { 15 GIU 1 ) { 9 SPAZ7}NON E * 
POSSIBILE' l{ 4 SPAZI } " : GOSUB 1 3 0 0 : GOTO 
70 :rem 230 

85 V-53248 :GOSUBl ! 00 trem 130 

90 PRINT" {CLR } {HOME} 1 ’ : POKEV+32 , 0 : POKEV+3 3 

,1 trem 56 

92 PRINTTAB {7} "{RVS} [<5>1 ~[<*>1 {OFF} 

{ 4 SPAZI} [KVS}~[<*>} [OFF] [ 7 SPAZI/ 
{RVS }“{<*>] {OFF!! 4 SPAZI} fRVS}^[<*>] 
{OFF}! 4 SPAZI} (RVSl(BLK) PUNTI" 

:tem 21 

94 PRINT" { 2 SPASI } [ RVS } [<5>]" [<*>]{OFF) 

{ 2 SPAZr} {RVS}2I 2 SPASUlOFF] 

{ 3 SPAZI} [RVS }"{ 2 SPAZI} [<*>] {OFF} 

{ 5 SPAZI} {RVS}^{ 2 SPAZI] [<*>] {OFF} 

{ 2 SPAZI] {RVS}“{ 2 SPASI} [<*>] {OFF} 

{ 2 SPAZI} {BLK} M ;SC : rem 52 

96 PRINT" {RVS}{<5>P{ 2 SPAZI ) E <* > ] ~ 

{ 3 SPAZI} {<*>) {OFF}[ 2 SPAZ I } { RVS } 

{ 4 SPAZI} [<*>) {OFF} { 2 SPAZI } { RVS ) 

"[ 5 SPAZI) {OFF) {RVSp( 4 SPAZI} [<*>] 
IOFF}{ 2 SPAZI} {RVS} {BLK} RES-:" 

trem 124 

93 PRINT" { RVS } [ < 5> ] ” { 9 SPASI} K*>11 

{ 5 SPAZI} [<*>PT 6 SPAZI J M 6 SPAZI} 
[<*>] [OFF] {BLK}"?AR : rem 29 

100 F0RQ=1TQ1 7: PRINT" {RVS} {GRN} [< 39 +>] 

11 ; NEXT : rem 64 

110 PRINT" [RVS] [<5>J { <Q> 1 [ 9 C)[<W>]{DES| 
^{ 13 SPAZI} [<*>] {DES] [<Q >] { 9 C) 

[<W>] " : rem 65 

112 PRINT" [RVS}[<5>] [<Q>] { 9 C]{<W>] 

{ 17 SPAZI) [<Q>]{ 9 C)[<W>]":rem 129 

114 GOSUB420 : rem 172 

120 CB=1 : TI $ = " 000000" : rem 34 

1 50 POKEV+21 r l 5:POKE2040n 3 : POKEV+ 3 9,0: PO 
KFV r 1 70 : POKEV+ 1 , 1 50 : Y= 1 70 : X= 1 50 : SH = 0 

treni 27 

1 51 PO KE 2 0 4 2 r 1 93 : POKEV+4 1 , 1 1 l RF=0;UT = 1 1 0: 

POKEV+4 2 , 0 : POKE204 3 , 1 95 :rem 206 

1 52 PGKE20 4! ( 1 4 t POKEV+ 40 t 0 * POKEV+2 , Xl : POK 

"EV+3 r Y 1 : rem 109 

1 80 S = NOTPEEK {56321 ) AND 1 5 ;U=SANDl :D=SAND2 
: L 3 SAND4 t R-$AND8 ; Yl =0 : XI -0 : rem 165 

1S2 POKEV+2 3 r 0 : POKEV+2 9 1 0 : rem 189 

1 05 IFUTtiENX = X-Ml :IFX<1 1 OTHENX-X+Ml 

: rem 253 

137 I FDTHENX- X+M 1 : I FX > 1 8 0 THENX =X - M 1 

: r em 24 7 

1 09 IFRTHENY-Y+M1 : I FY>24 5THENY= Y-Ml 

trem 14 

191 I FLTHENY=Y-Ml : IFY< 90THENY-Y+M1 

: rem 205 

200 POKEV, Y: POKEV+1 ,X trem 59 

210 J=NOTPEEK (56321 ) AND1 6 ; IFJ- 1 6THENGOSUB 
245 : rem ?89 

230 RO=BO+ * 5 : GQSUB3 1 0 : GOTOl 8 0 treni 220 
245 SH=SH+Ì : XI : MR* Y : HH = Y/2 t GOSUB400 

trem 64 

247 FORDD =DDTOHH$ TEP 5 : POKEV+ 2 , DO : POKEV+3 , 
XI :GOSUB330:NEXT f : rem 224 

250 PO KE 2 0 4 1 , 1 5 : FORDD =DDTOMRSTE P 5 : POKEV+ 2 
,DD: POKEV+3, XI t GOSUB330 : NEXT : rem 171 

251 I F t PEEK ( V+30 ) AND4 ) >0THENI F ( PEEK { V+ 30 ) 

AND4) >OTHENGOSUB253 tram 110 

252 Xl=0:DD=0:Yl-0: POKEV+2 , Xl :PQKEV+3,MR: 

POKE2041 , 1 4 : RETURN ir etri 131 


SLIPFHCOHHOOOftF'® <1/55 67 



253 POKE204Ì , 1 92 : POKEV+23 , 2 ; POKEV+2 9 , 2 




: rem 

184 

254 

POKEV+ 3,Xl*10: POKEV+ 2 , DD- 1 2 : 

GOSUB4) 0: 


GOSUB49 5 

: rem 

204 

258 

FORRE” 1 TO 50 0 : NEXT : PO KE V+ 2 3 , 0 

; POKEV+2 9 


,0 

:rem 

1 52 

260 

X ì = 0 : DD - 0 : Y 1 -0 ; POKEV+2 , X 1 :PQKEV+3 

,MR: 


POKE2041 , 1 4 : RETURN 

treni 

130 

310 

RF-RF+5: IFRF>21 5THEN350 

trem 

95 

315 

POKEV+ 4 , nr : POKEV+ 5 , UT t RETURN 

: rem 

79 

330 

RF=RF + T .8: IPRF>21 5THENRF-0 

: rem 

4 0 

333 

IFRF= 0THEN3 4 0 

: rem 

243 

335 

POKEV+4 , RF : POKEV+S , UT : RETURN 

: r em 

81 


340 RF=0:UT**1 10: RS= INT ( RND { 0 ) *60] :UT-UT+R 
S : GOT03 3Q ;rem 61 

350 FI - RF : F 2 -UT : PO KE2 04 2,1 94 : POKEV+6 , Fi :P 
OKEV + 7 , F2 : GOS UB4 0 0 : rem 77 

355 FQRQ = F2TOl 50STEP . 4 : POKEV+7 , Q : NEXT : PGK 
EV+2 9 , 8 : POKEV+23 , 8 : POKEV+6 , Fi ~ 1 2 

:rem 55 

3 60 F2-1 50:FORO-F2TO2 3DSTEP, 6 : POKEV+7 , Q : N 
EXT: GOSUB41 0 srem 73 

390 POKEV+6 f 0 : POKEV+7 , 0 : POKEV+4 , 0 ! PGKEV+5 
, 0 : RF-0 : POKEV+23 , 0 : POKEV+2 9 , 0 

:rem 235 

391 POKE2042, 1 93:G0T0499 :rem 118 

400 S=54272;FORL=STGS+24 : POKEL , 0 : NEXT : POK 

ES+ 5 , 9 : PO KES + 6,16: POKES+2 4,1 5 

:rem 70 

40 5 FOKES+4, 1 29 ; POKES+1 , 34 : FOKES f 75 : RETUR 

n sretn 91 

41 0 5 = 54 2 72 : FORL=ST0S+2 4 : POKEL , 0 : NEXT : POK 

ES+5, 1 1 t POKES+6 ,16: PQKES + 2 4 , 1 5 

: r etti 112 

415 FQKES + 4 ,129: POKES+1 , 54 : POKER, 1 1 1 : RETU 
RN ; rem 133 

420 S = 54272: FORL= 5TQS+ 2 4 : POKEL , 0 : NEXT : POK 
ES+5 , 1 1 ; POKES+6 , 56 : POKES + 24 , 1 5 

i rem 1 1 7 

425 POKES + 4 ,129: POKES+1 ,51 s POKES , 97 : RETUR 
N : rem 96 

495 SC^SC + 1 0 : C B= 0 ; RN = I NT { RND { 0 ) * ì 5 > :CB=CB 
f RN : GOTO 500 ; rem 95 

499 AR=AR-1 : rem 103 

500 V=53248 : PRINT" {HOME} " : POKEV+32 , 0 : POKE 

V+ 3 3 , GB : rem 248 

501 RF = 0 :tJT=l 1 0 ;RS=INT (RND (0) *60] :OT-UT+R 

S : RF=RF+1 *. 5 : :rem 211 

502 PRINTTAB 1 7 ) " { RVS } [ < 5> P [< * >] {OFF} 

{ 4 SPAZI J f RVS)™ 1<*>] {OFFH 7 SPAZI) 
{RVSr [<*>] [OFFTf 4 SPAZI) tRVSKl<*>] 

{OFF}! 4 SPAZI }( RVS J (BLK}PUNTI" 

;rem 65 

504 PRINT" { 2 SPAZI} {RVS) [<5>1 " [<*>) {OFF} 
{ 2 SPAZI 3 { RVS }^_{ 2 SPAZlHOFF} 

{ 3 SPAZlHRVSKf 2 SPAZI} [<*>| {OFF} 

{ 5 SPAZI } (RVSj^t 2 SPAZI }[<*>} {OFF} 

{ 2 SPAZI) {RVSpt 2 SPAZI} [<*>] (OFF) 

{ 2 SPAZI }{BLK}";SC : rem 96 

506 PRINT" {RVS}L<5>ri 2 SPAZI) 1<*>P 

{ 3 SPAZI 1 [<*>] {OFF} { 2 SPAZI) (RVS) 

{ 4 SPAZI) [<*>] {OFF) t 2 SPAZI) (RVS} 

”{ 5 SPAZI } {OFF} {RVS}~{ 4 SPAZI} 
T<*>] £OFF}{ 2 SPAZI! [RVS] {BLK}RES. 

: i era 168 


508 PRINT'MRVS} [<5>] "{ 9 SPAZI} [<*>]" 
{ 5 SPAZI) [<*>]"! 6 SPAZI 
{ 6 SPAZI } { <*> JTOFF } { BLK) 11 J AR 




: rem 

73 

509 

IFAR=0THEN549 

: rem 

254 

510 

RETURN 

: rem 

118 

549 

LL-1 8:BL«1 2: 1 5 

:rem 

169 


550 PR I NT" {HOME} " : POKEV+32 , 0 : POKEV+33 f 1 

;rem 214 

556 FORQ=5TQ7: PRINTTAB [Q ) " { BLK } M n SPC { 10) " 
M” : NEXT :rem 41 

560 FRI NTTÀB ( 7 ) " ( BLK } N N SPC (11 } M M ,, SPC (4) " 
NM " : rem 29 

56! PRINTTAB ( 6 ) " N " SPC (13) "M"SPC { 2) "N"SPC{ 
2) rt M" : rem 58 

562 PRINTTAB {5} " (BLK}N"SPC ( 15) H {BLK}MN"SF 
C ( 4 ) "M" treni 177 

5 63 PRINTTAB (5) "M m SPC (21 } n N H SPC ( 3 ) ir NM n 

: rem 142 

564 PRTNTTAB ( £ ) "M"SPC{6) "NM*SPC (IT ] "N"SPC 

(3) "N W SPC (2) "M 1 * : rem 136 

565 PRINTTAB (7) "M" SPC ( 4 ) "N"SPC (2) 1T M"£PC { 1 

0)“K n SPC{2) "N"SPC[4> "M" : rem 52 

56 6 PRINTTAB { B) "M" SPC ( 2 ) *' N"SPC ( 4 } "M M SPC(1 
0) "MN"SPC " :rem 1 39 

567 PRINTTAB(9> ”MN"5PC (6) "M”SPC{1 7) "N" 

: rem 158 

568 PRINTTAB ( 1 8) "M n SPC {15) "N" : FORLB-1 TOS: 

PRINTTAB (LL) M N !1 SPC (1 4 ) " N H : LL=LL- 1 : NEX 
T :rem 60 

570 FORQ-1T05: PRINTTAB (BL) "N"SPC (BB) "M" : B 
L®BL-1 : BB-BB+2 ; NEXT ™ : rem 187 

580 RESTORE : POKEV+23 f Q : POKEV+2 9 r 0 : POKEV+2 
1,5: GOSUB4 2 0 : FORQ= I TOSO OSTE P . 1 : NEXT 

: rem 66 

585 S®542?2: FORL- STQS+ 2 4 : POKEL , 0 : NEXT : GOS 
UBI 200 : rem 193 

588 V= 5 32 4 8 : BO-BO/ 1 0 : XX = INT { BO ) :SC = SC+XXt 

IFSOHSTHENHS=SC :rem 174 

589 PRINT" {HOME} {CLB}" : POKEV+32, 0:POKEV+3 

3, 1 :POKE5328) , 1 : rem 62 

590 PR I NTTAB ( B5 } " (RVS } [< 2> ] B *0* N*U*S w ; XX 

jSPC {3) " {RVS] BOMBE US ATE " ; SH : PRINTTAB 
(4 5) 11 {RVS} TUOI"; : rem 167 

591 PRINT' 1 PUNTI" ?SC; SPC (3) " {RVS} * RECORD 

* 11 ; H5 : PRINTTAB (49) ** { RVS } GRADO = 

{BLK } 11 ; B$ : rem 66 

592 PRINTTAB ( 43] " {RVS} [< 2>] SEI SOPRAWISS 

UTO PER: w fTI$ : rem 189 

593 PRINTTAB ( 90) " {RVS} GIOCHI ANCORA? (S/N 

) M : rem 220 

595 GETC$ : I FC$ * " "THE N 5 9 5 treni 109 

596 SC = 0 : " i I F€$ = "S"THEN599 :rem 162 

597 IFC$ = 1É N"THENEND :rem 112 

598 C$» w " : GOTO 5 95 :rem 164 

599 SH=0:5C=0:BO=0:XX=0: POKEV+32, 1 :POKEV+ 

33, 0 :GOTO60 ; rem 172 

800 S= 5 4 2 7 2 : FORL= S TOS + 2 4 : PO KEL , 0 : NEXT : POK 

ES+5 , 9 : POKES + 6 # 0 : POKES + 2 4 , 1 5:rem 1 9 

801 READHF , LF , DR t I FHF= - 1 THENRETURN 

irem 196 

804 POKES+1 , HF: POKES, LF:POKES+4, 33: FORT=T 
TODR : NEXT : POKES+ 4 ,32: GOTO 8 0 T :rem 168 

810 DATAI 8, 209, 1 0 24,1 5,21 0, 51 2, 1 8, 20 9, 51 2 
, 16 ( 1 95, 1 024, 1 4,24, 51 2, 1 1 , 48, 51 2 

;rem 45 

81 1 DATAI 8,209,200,16, 195,200,15,210,200, 
14,24,200, 1 5, 21 0,51 2,22, 96, 51 2 

rrem 17B 

812 DATAI 6 , T 95 , ! 0 24 , 1 1 , 4 8 , 1 02 4 , 1 5 , 2 1 0 , 51 2 
,14,24,200,12,143,200,1 1 ,48,200 

: rem 222 

81 3 DATAI 0 , 1 4 3,2 00, 1 1 , 48,200,1 2,1 43,200,1 
1 ,48,51 2, 16, 1 95,51 2, 1 4,239, 51 2 

:rem 185 

81 4 DATAI 1 , 48,51 2,1 5,21 0,200,1 5,21 0,200,1 
4,24,200, 1 2,143,200,1 1 ,48,200 

:rem 105 





81 5 DATAI 0, 1 4 3,200, 1 1 ,48,200,1 2,1 43,200,1 
! ,48, 51 2, 1 6, 1 95, 102 4,22, 96, 51 2 

: r em 186 

81 6 DATAI 8,209,1024, ì 5, 21 0, 51 2,1 8,209, 51 2 
,16, 195,1024,14,24, 512,11 ,48,51 2 

: recn 51 

SI 7 DATAI 8, 209,2 00,1 6, 1 95 , 200 , 1 5 , 2 1 0 , 2 00 , 

1 4, 24,200,1 5,21 0, 51 2,22, 96, 51 2 

; rem 1 84 

SI 8 DATAI 6,195,1 024,1 1 ,48, 1024, 15,21 0,51 2 
, 1 4 r 24,200,1 2, 1 43, 200,1 1 ,48,200 

: rem 228 

019 DATAI 0,1 43,200,1 1 ,48,200,72,1 43,200,1 
1 ,48, 51 2,1 6, 195,51 2, 14, 239,51 2 

: rem 191 

82 0 DATAI 7 ,4 8,51-2,1 5 , 21 0 , 200 , 1 5 , 21 0 , 200 , 1 
4, 24, 200,7 2, 14 3,200,1 1 ,48,2 00 

cretti 102 

821 DATAI 0, 1 43, 200,1 1 , 48, 200,1 2, 1 43,200, 1 

1 . 48. 51 2.11 .48.1 024, -1 , 0, 0 : rem 21 0 

900 DATA255, 255, 255, 128,24, 1 ,128,24,1,128 
,24, 1 ,128, 24,1 , 128, 24, 1 ,126, 24,1 

; rem 3 5 

90 5 DATAI 28,24, 1 , 7 2 8 , 36 , 1 , 1 2 8 , 66 , ! , 255 , ! 2 
9,255,128,66,7 ,128,36,1 ,128,24,1 ,123 

: rem 1 

910 DATA 2 4 , 1 , 1 28, 2 4 , 7 , 1 28 , 24, 1 , 1 2 8, 24, 1 , 1 

28.24.1 ,128,24,1 , 2 55,255,2 55 : rem 93 
91 5 DATAO ,0,0, 0,0 ,0,0, 0,0, 0,0, 0,0, 0,0, 0,0 

,0,0,0,0,31 ,254,0,49,255, 192,96,255 

: r em 88 

920 DATA240,! 96, 1 27 , 2 52 , 206 , 1 27 , 2 55 , 2 06 , ! 
27,255,196,127,252,96,255,240,49,255 

; rem 3 5 

92 5 DATAI 92, 31 , 2 54, 0,0, 0,0, 0,0,0, 0,0, 0,0, 

0,0, 0,0,0 : rem 109 

926 DATAO, 0,0,0, 0,0, 0,0,0, 0,0, 0,0, 0,0,0, 0 
, 0,0,0,0,63, 240, 0,1 03, 252,0, ! 95, 255 

: rem 66 

927 DATAO, 2 1 9, 2 55, 1 92, 1 95, 255, 0,1 0 3, 2 52,0 
,63, 24 Q,G, 0,0, 0,0,0, 0,0, 0,0, 0,0, 0,0,0 

‘rem 207 

928 DATAO, 0,0, 0,0, 0,0, 0 :rem 113 

930 DATAO, 0, 2,34, 1 28,4,0,64,2,146,128,16, 

0, 1 6, 10, 73,32, 64,0,4,1 7, 1 40,96,64, 0,4 

; tem 2 

93 5 DATAI 7, 17, 16, 64, 0, 4, 8, 1 3 6, 136 ,64, 0,4, 

17.17. 16. 32. 0. 8. 8. 136. 128. 16. 0.16.2. 7 

2 :rem 80 

94 0 DATAI 2 8, 4,0, 64,0,0,0 :rem 184 

945 DA TAO, 0, 0,0, 0,0, 0, 0, 0, 0, 0,0,0, 64 ,0,0, 

64. 0. 0. 64.0.0.64. 0.0. 1 26.0.0.255. 255, 

0 :rem 221 

947 DATA2 5 5,0, 63,255, 252, 1 27,255,254,255, 
255,255,100,68,70,37,85,84,20,68,72 

cremi 243 

9 50 DATAI 5,255,240,0,0,0, 0, 0,0, 0,0,0 

; r em 2 2 8 

955 DATAO ,2,0,0,2,0,0,2,0,0,2,0,0,58,0,0, 

70. 0. 0. 1 86.0.0.1 30.0. 0.254.0. 1 .255.0 

: rem 128 

960 DATA3, 2 55, 128, 7,255,1 92,0,1 24, 0,1 5,18 
7, 224, 8, 186, 32,1 5, 1 87,224,8,1 30, 32,1 5 

: r em 52 

96 5 DATAI 31 ,224,0,0,0,0,0,0,0,0,0 

creili 83 

970 DATAO ,0,0, 0,0, 0,0,0, 0,0, 0,0 ,0,0, 0,0,0 
,0,0, 60, 0,0, 1 26,0,0,255,0, 0,255,0,0 

:rem 41 

97 5 DATAI 2 6,0,0,60,0,0,0,0, 0,0, 0,0,0, 0,0, 

0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 

: rem 178 



1 000 FORAI =832 T08 9 4 : RE ADQ 1 : POKEAl , Q1 : NEXT 

: rem 22 


1010 FOHA2^8 96T09 5 8 ; READQ2 ; POKEA2 , Q2 : NEXT 

; rem 38 

1015 FORA 3 = 960 TO 1 022 ; READQ3 : PGKEA3 , Q3 : NEX 
T crem 70 

1 020 FORA4=l 228BT01 2 3 50 :READQ4 : PQECEA4, Q4 : 

NEXT srem 226 

1025 FORA5=1 2352T01 241 4:READQ5t POKEA5,Q5: 



NEXT 

: rem 

228 

1030 

FORA6- 1 2 41 6T01 2478 CKEADQ6 

: POKEA6 , 

Q6: 


NEXT 

: rem 

239 

1035 

F0RA7 = 1 2480T01 2542 : REAPQ7 

: POKE A7 , 

07: 


NEXT 

: rem 

241 

10 90 

RETURN 

: r em 

1 70 

7 1 00 

I FTA= 1 THENAR= 5 : I FTA= 1 THENM1 ~ ì 




; rem 

1 1 1 

1 105 

IFTA-2TKENAR-3 t IFTA = 2THEN(4l = 2 




: rem 

117 

ino 

IFTA= 3THENAR= 1 : 1 FTA- 3THENM 1=3 




:rem 

1 ì 4 

1 1 so 

RETURN 

: rem 

167 

1 200 

IFSC=OTUENB$=" BURBA" 

: rem 

21 5 

1 20! 

1FSC>0ANDSC< 51 THENB3 “"SOLDATO" 




: rem 

142 

1 20 2 

I FSC > 5 2 ANDSC < 1 0 1 THENBS - "CAPORALE " 




: rem 

35 

1 204 

IFSOI 01 ANDSC<201 thenb$=" 

SERGENTE 

ir 



: rem 

103 

1 206 

I FSC > 2 0 1 AND SC < 4 0 1 TNENB$ = " 

TENENTE" 




: rem 

34 

1 208 

IFSO401 ANDSC< 601 THENB$=" 

CAPITANO" 



: rem 

1 00 

1 21 0 

IFSO601 ANDSC <801 THÉN8S-" 

MAGGIORE 




: rem 

93 

1 21 2 

IFSO801 ANDSCO 001 THENB$= 

"* COLONNEL 


LO *" 

; rem 

136 

1 21 4 

IFSO 1 001 THENBS = *' ** GENERALE **" 




: rem 

238 

1 21 6 

RETURN 

: rem 

1 70 

1232 

GOTO 500 

:rem 

1 50 

1 300 

FORI -ITO! 500: NEXT: RETURN 

: rem 

94 
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A tutto 
Bach! 
per C64 

di A* u Mi Fossati 

Questo mese proponiamo ai lettori di 
5UFERCOMMODORE un arrangia 
mento per C64 di un brano notissimo 
di musica classica: ii secondo movimen- 
to (andante) del Concerto brandebur 
ghese n. 2 di Johann Sebastian Bach, 
sicuri di fare cosa gradita ai moltissimi 
estimatori di questo “grande" della mu- 
sica di tutti i tempi, 

Bach scrisse i 6 Concerti Brandeburghe- 
si nel 1721 durante il suo soggiorno a 
Kotheru forse il periodo più prolifico 
della sua vita I Concerti furono scritti, 
come era costume comune al tempo, in 
dedica ad un principe, il marchese Cri- 
stiano Ludovico di Brandeburgo 
Per quanto riguarda il nostro program- 
ma esso è suddiviso in 2 sezioni: la pri- 
ma, molto breve (linee 1-970), permette 
di inserire nel $ID gli opportuni valori 
di durata e frequenza presenti nella se- 
conda parte, cioè le successive istruzio 
ni DATA (linee 10004652) Non ci re- 
sta che augurare buona digitazione e, 
soprattutto, buon ascolto dì questa mu 
sica straordinaria, diretta e interpretata 
da un solista d'eccezione il vostro C64 



A tutto Bach! per C64 

1 REM ANDANTE :rem 16 

1 0 S -54272 s W 1 *S+4 :W2=Wl + 7 : W3=w2+7 : Vi =S:V2 
=S+7:V3=S+14 ; rem 100 

50 PRINTCHRS (1 4) : PRINTCHRS (B) :POKE5328l , 1 
4 : PQKE64 6 , 0 :rem 92 

55 PRI NT 11 (CLR) £ 5 GIU* }A. k M, FOSSATI 
( 2 5 SPAZI) |< 15 T> 1 11 s rem 89 

60 PRI NT" { 5 GIU 1 } DAL CONCERTO BRANDEBURG 
RESE M. 2 " : rem 2 33 

65 PRINT" (GIU * } D I J* {SPAZI }5, BACH ; n 

: rem 59 

70 PRINT" {Gl U* } ARRANGI AMENTO PER COMMODOR 
E 64 DEL SE-" :rem 161 

75 PRINT" { GIU ' } CONDO MOVIMENTO (ANDANTE). 

: rem 21 5 

1 00 Ol -01 7:POKE3+Q5,Q52:POKES+06, 085 

: rem 1 1 

1 1 0 02=01 7: PQKES + 1 2,085 :POKES+ì 3,169 

;rem 18 


1 20 03 = 0 3 3 ; P0KES + 1 9,009: POKES + 2G , 0 85 




: rem 

16 

1 30 

POKES+24, 1 5 

: rem 

57 

200 

READQ : ONQGOTQ300 , 350,400, 950 

,960, 

970 , 


450, 500,550, 600,900 

: r em 

1 71 

250 

READP : FQRF = 0 TGPSTE P . 0 6 2 : NEXT 

! rem 

69 

2 90 

GOTO 200 

; rem 

102 

300 

POKEW1 , 0 ; READLB # HE : POKEVl ,LB 

t POKEVl +1 


,HB:POKEWl ,01 

r rem 

137 

340 

GOTD200 

: r em 

90 

350 

FGKEW2 , 0 ; READLB , HB : POKEV2 , LB 

: POKEV2+1 


, HB : POKEW2 ,02 

; rem 

1 47 

390 

GOTO 2 0.0 

; rem 

1 03 

400 

POREW3 , 0 : READLB , HB : POKEV3 , LB 

: POKE V3+1 


, HB i POREW3 ,03 

:rem 

148 

440 

GOTO20Q 

:tem 

99 

4 50 

POKEIfl ,0;GOTO200 

:rem 

177 

500 

POKEW2 , 0 : GOTO200 

: rem 

1 74 

550 

GGSUB590 : POKBV1 +1 , KB + 2 

: rem 

23 

555 

GOSUB5 90: POKEVl +1 ,HB 

; rem 

191 

560 

GOSUB59Q: POKEVl +1 ,HB+2 

; rem 

24 


SUPtRCtJMMODOflE* 4 /SS 71 



565 GOSUB5 90:POKEVl+ì , HB : GOT02GQ : rem 197 
590 PORRAI TOSO :NEXT: RETURN srem 227 

600 GOSUB590 : POKEV2+T , HR+ 2 irem 20 

605 GOSUB59G : PGKEV2+1 , HB srem 188 

610 GOSUB590;POKEV2+l,HB+2 :rem 21 

615 GOSUB590 : PQKEV2+1 , HB :GQT02 00 : rem 194 

900 FORV-1 5TOOSTEP’ . 02 ; POKES + 24 , V S NEXT : EN 
D É : rem 1 58 

950 READLB , HB ; POKEV 1 ,LB:POKEVl+1 ,HB:FOKEW 
1,01 : GOT02 00 : rem 76 

960 READLB, EIB : POKEV2 , LB : POKEV2 + 1 ,HB;POKEW 
2,02 :G0T02 00 : rem 81 

970 RE AD LO , MB : POKEV 3 , LB : POKEV 3 + 1 ,HB:POKEW 


3,O3:GOTO200 




: rem 

86 

1000 

DATA7 

,8,3, 

001 ,000,0, 

90 


: rem 

63 

101 1 

DATA 3 

,196, 

009,0, 

30 



: rem 

140 

1012 

DATA 3 

,162, 

014,0, 

30 



: rem 

130 

1013 

DATA 3 

,158, 

Oli ,0, 

30 



irem 

133 

101 4 

DATA 3 

,162, 

014,0, 

30 



: rem 

132 

101 5 

DATA 3 

,196, 

009,0, 

30 



srem 

144 

1016 

DATA 3 

,162, 

014,0, 

30 



: rem 

134 

1021 

DATA 3 

,010, 

013,0, 

30 



srem 

121 

1022 

DATA 3 

,129, 

015,0, 

30 



srem 

135 

1023 

DATA3 

, 247, 

010,0, 

30 



srem 

132 

1024 

DATA 3 

,010, 

01 3,0, 

30 



; rem 

124 

1025 

DATA 3 

,056, 

009,0, 

30 



: rem 

140 

1026 

DATA 3 

,247, 

010,0, 

30 



: rem 

135 

1031 

DATA 3 

, 1 96 , 

009,0, 

30 



: rem 

142 

1032 

DATA 3 

,162, 

01 4,0, 

30 



: r em 

132 

1033 

DATA 3 

,158, 

01 1 ,0, 

30 



: rem 

135 

1034 

DATA 3 

,162, 

01 4,0, 

30 



: rem 

1 34 

10 35 

DATA 3 

,196, 

009,2, 

069, 

029, 

>0, 

29 









: rem 

138 

1036 

DATA 3 

,158, 

oi 1 

30 



! rem 

138 

1041 

DATA3 

,010, 

013,2, 

003, 

031 , 

0, 

29 









: rem 

96 

1042 

DATA 3 

, 247, 

010,0, 

30 



; rem 

133 

1 043 

DATA 3 

,056, 

009,0, 

30 



; rem 

1 40 

1044 

DATA 3 

, 247, 

010,5, 

069, 

029, 

r0. 

29 









i rem 

1 30 

1 04 5 

DATA 3 

,081 , 

007,2, 

020, 

026, 

o. 

13,5,003,0 


31,0, 

1 3 





: rem 

55 

1046 

DATA 3 

,056, 

009,5, 

069, 

029, 

o t 

29 









: rem 

1 38 

1 051 

DATA 3 

,196, 

009,2, 

059, 

023, 

r0, 

05, 1 0 









srem 

8 

1052 

DATA 3 

,08? , 

007,0, 

30 



srem 

136 

1 053 

DATA 3 

, 207, 

005,2, 

237, 

021 , 

,0, 

29 









srem 

116 

1054 

DATA 3 

,081, 

007,5, 

1 37, 

01 9 , 

|0, 

29 









srem 

1 28 

1055 

DATA3 

,226, 

004,2, 

ne. 

046, 

n, 

138,058 

i,o f 


28 






srem 

104 

1056 

DATA 3 

,207, 

005,0, 

30 



: rem 

138 

1061 

DATA 3 

,133, 

006,2, 

1 18, 

04 6 , 

-n 

005,062 

ÌiO, 


28 






s rem 

88 

1062 

DATA 3 

r? 93, 

007,5, 

219, 

04 3 , 

,0, 

29,8 









: rem 

229 

1063 

DATA 3 

,123, 

005,0, 

30 



: rem 

133 

1064 

DATA 3 

,133, 

006,1 , 

1 38, 

058, 

r0 f 

29 









: rem 

1 26 

1065 

DATA 3 

,081 , 

007,2, 

219, 

043 t 

r ? i 

039,052 

!r0, 


12,4, 

005,062,0,1 

3 



: rem 

46 

1066 

DATA 3 

,162, 

014,4, 

138, 

058, 

,5, 

1 18,046 

0 , 


12,5, 

039,052,0,1 

3 



: rem 

65 

1071 

DATA 3 

,196, 

009,2, 

21 9, 

04 3, 

rii 

1 18,046 

i,0. 


05,9 






: rem 

203 

1 072 

DATA 3 

,162, 

014,5, 

018, 

039 , 

rO, 

29,8 









srem 

226 

1073 

DATA 3 

,158, 

011,1, 

21 9, 

043, 

r 0 , 

29 









: rem 

1 23 

1074 

DATA 3 

,162, 

014,4, 

018, 

039, 

t o , 

29 









; rem 

1 27 


1075 

DATA 3 

,196 

,009, 

2,059, 

,023, 

?< 

,138,058 

r 0 , 


28 






: rem 

116 

1076 

DATA 3 

,158 

, 01 1 , 

0,30 



i rem 

142 

1081 

DATAI 

,232 

,006, 

2,059, 

,023, 


, 181 ,065 

r 0 , 


28 






: rem 

97 

1082 

DATA} 

,055 

, 008, 

5,237, 

,021 , 

f G, 

i 29, 8 









s rem 

22 5 

1083 

DATA 3 

,123 

* 005, 

0,30 



:rem 

135 

1084 

DÀTA3 

,2 32 

,006, 

4,157, 

F 06 9 ( 

,0, 

,13,4,036,0 


76,0, 

14 





: rem 

92 

1085 

DATA 3 

,081 

,007, 

2,059, 

r023 ( 

ri, 

,157,069 

',0, 


12,4, 

181 , 

065,0 

',13 



: rem 

65 

1086 

DATA 3 

,196 

t 009 , 

4,157, 

,069, 

r0, 

r 29 









: rem 

140 

1091 

DATA 3 

i 24 7 

,010, 

2,059, 

,023, 

tii 

,065,055 

,0, 


05,9 






: rem 

195 

1092 

DATA 3 

,109 

,016, 

5,237, 

r 0 2 1 , 

,0, 

>29,8 









s rem 

225 

1093 

DATA 3 

,208 

,013, 

1,058, 

-049, 

r0 ( 

- 29 









s rem 

130 

1094 

DATA 3 

,109 

,016, 

4,219, 

,043, 

,0, 

-29 









; rem 

130 

1095 

DATA 3 

,162 

,014, 

2,219. 

,043, 

ri, 

-157,069 

f o, 


28 






srem 

no 

10 96 

DATA 3 

,103 

,017, 

0,30 



s rem 

140 

noi 

DATA 3 

,137 

,019, 

2,118, 

,046, 

ri. 

- 1 57, 069 

,0, 


28 






: rem 

106 

1102 

DATA 3 

,059 

* 023, 

4,181 ( 

,065, 

o ( 

-29,7 









irem 

223 

1103 

DATA3 

, 109 

,016, 

0,30 



: rem 

134 

Il 04 

DATA3 

,137 

,019, 

2,219, 

,043, 

A 

- 29 









: rem 

124 

1105 

DATAI 

,010 

,013, 

1,181, 

-065, 

-2, 

t 0 1 9,039 

,0, 


12,5, 

138, 

058,0 

i!3 



: rem 

48 

1106 

DATA 3 

,109 

,016, 

5 , 039 j 

,052, 

4, 

157,069 

,0, 


12,4, 

036, 

078,0 

i!3 



: rem 

69 

1111 

DATA 3 

,103 

,01 7, 

2,118, 

,046, 

rii 

181 ,065 

i0. 


2 8 






; rem 

91 

1112 

DATA 3 

,237 

,021, 

5,219, 

.043, 

4, 

1 38,058 

i0. 


28,7 






: rem 

203 

1113 

DATA 3 

,162 

,01 4, 

2,01 8, 

.039, 

o, 

29 









srem 

1 19 

1114 

DATA 3 

,103 

,017, 

5, 207, 

.034, 

0, 

29 









:rem 

1 1 6 

1115 

DATA 3 

,158 

,011 , 

1 ,138, 

, 058, 

2, 

219,032 

,0, 


04,10 






: rem 

235 

1116 

DATA 3 

,162 

,014, 

5, 069 , 

,029, 

,0, 

29 









srem 

130 

1121 

DATA 3 

,109 

,016, 

2,018, 

,039, 

>1, 

1 38,058 

,0, 


28 






s rem 

102 

1 1 22 

DATA 3 

,137 

,019, 

4,065, 

055, 

0, 

29,7 









s rem 

227 

1 123 

DATA 3 

,208 

,013, 

0,30 



srem 

133 

1 1 24 

DATA3 

,109 

,016, 

2,207, 

.034, 

0, 

29 









srem 

119 

1 1 25 

DATA3 

,247 

,010, 

1 , 065 , 

055, 

2, 

21 9, 032 

,0, 


12,5, 

01 a. 

039,0 

,13 



s rem 

50 

1 1 26 

DATA 3 

,237 

,021, 

5,207, 

034, 

0, 

29 









: rem 

122 

1131 

DATA3 

,162 

,014, 

2,219, 

.032, 

li 

065,055 

,0, 


28 






: rem 

92 

1132 

DATA 3 

,103 

,017, 

5,069, 

029, 

4, 

138,058 

,0, 


28,7, 

8 





s rem 

53 

1 1 33 

DATA 3 

,1 5B 

,011 , 

0,30 



: rem 

1 36 

1 1 34 

DATA 3 

,162 

,014, 

0,30 



s rem 

135 

1135 

DATA 3 

,196 

,009, 

2,118, 

046, 

1 i 

138,058 

,0, 


28 






srem 

1 1 4 

! 1 36 

DATA 3 

,055 

,008, 

0,30 



: rem 

141 

1141 

DATA 3 

,247 

,010, 

2,118, 

046, 

1, 

138,058 

,0, 


2 B 






srem 

100 

1 1 42 

DATA 3 

,196 

,009, 

5,219, 

043, 

0, 

29 









srem 

1 33 
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1 1 43 

DATA 3 

, 247,01 0, 

2,01 3, 039, 0, 29 





t rem 

7 22 

1 144 

DATAI 

, 181 ,065, 

5,207,034,0,29 





: rem 

1 26 

1 1 45 

DATA 3 

,123,005, 

2,01 8, 039, 1 , 21 9,043 

,0, 


1 3,5, 

1 1 8,046,4 

, 1 38,058,0,1 3: rem 

36 

1 1 46 

DATA5 

, 21 9,043, 

4,065, 055, 0, 29 





t rem 

1 34 

1 1 51 

DATA 3 

,081 ,007, 

2,018,039,1,1 38,058 

,0, 


28 


; rem 

104 

7 1 52 

DATA3 

, 247,010, 

5, 207, 034,0, 29,7 





: rem 

219 

1 1 53 

DATA 3 

, 1 80,008, 

2,21 9,032,0,05,10 





: rem 

1 

1154 

DATA3 

,247,010, 

5,069,029,0,29 





: rem 

1 32 

1 1 55 

DATA 3 

,087 ,007, 

2,207,034,1 ,1 57,069 

,0, 


28 


: rem 

106 

1 1 56 

DATA 3 

, 1 80,008, 

0,30 trem 

142 

11 61 

DATA 3 

, 193,007, 

2,01 3,039, 1 ,1 57,069 



28 


: rem 

1 7 2 

1162 

DATA 3 

,196,009, 

4,005,062,0,29,7 





trem 

227 

11 63 

DATA 3 

, 133,006, 

0,30 trem 

1 36 

7 1 64 

DATA 3 

, 1 93,007, 

5, 21 9,043,0, 1 4, 5, 7 18,0 


46,0, 

14 

t rem 

88 

71 65 

DATA3 

,090,004, 

2,21 9,043, 1,005,062 

,0, 


12,5, 

039,052,0 

,13 trem 

45 

7 1 66 

DATA3 

, 1 00,008, 

5,1 13,046,4,1 57,069 

,0, 


12,4, 

036,078,0 

,13 trem 

76 

1 1 71 

DATA 3 

,207,005, 

2,1 18,046, 1 ,005,062 

,0, 


28 


t rem 

91 

1172 

DATA3 

,081 ,007, 

4,138,058,0,29,7 





trem 

231 

1173 

DATA 3 

,133,006, 

2,21 9,043,0,05,1 0 





trem 

1 

1 1 74 

DATA3 

, 1 93,007, 

5,018,039,0,29 





trem 

135 

7 1 75 

DATA 3 

,081 ,007, 

2,207,034,1 , 138,058 

,0, 


28 


trem 

705 

7 1 76 

DATA3 

, 1 80,008, 

5,018,039,0,29 





trem 

734 

11 81 

DATA 3 

, 193,007, 

2,207,034,1 ,138,058 

,0, 


28 


trem 

106 

71 82 

DATA3 

, 196,009, 

5,003,031 ,4,039,052 

,0, 


28,7, 

8 

trem 

46 

71 33 

DATA3 

, 1 33,006, 

0,30 trem 

7 38 

7 1 34 

DATA 3 

, 1 93,007, 

0,30 trem 

746 

1 1 85 

DATA3 

, 1 80,008, 

2,003,031 , 1 ,039,052 

,o. 


28 


trem 

92 

1 1 86 

DATA 3 

, 1 03,01 7, 

5,207,034,4,138,058 

,0, 


13,5, 

013,039,4 

, 00 5, 062 , 0, T 3: rem 

38 

1 191 

DATA 3 

, 1 58, 01 1 , 

2,003,037 r 1 ,039,052 

,Q, 


28 


trem 

88 

1 1 92 

DATA 3 

, 1 62,01 4, 

5,069,029,4,118,046 

,0, 


28,7, 

8 

: rem 

56 

1 1 93 

DATA 3 

,01 0,07 3, 

0,30 trem 

7 37 

1 1 94 

DATA 3 

, 1 29,01 5, 

0,30 trem 

745 

1 1 95 

DATA 3 

, 1 62,01 4, 

2,069,029,7 , 1 57,069 

,0, 


28 : rem 118 

1196 DATA 3,703,01 7,0,30 ; rem 141 

1 201 DATA 3 * 1 29,01 5,2,069,029,1,036,078,0, 

2 8 ; rem 106 

1 202 DATA3 ,137,01 9 , 5 , 020 , 02 6 , 0 , 2 9 , 8 

:rera 217 

1203 DATA3, 010, 01 3,0,30 :rem 123 

1 204 DATA3 ,129,01 5,4,182,087,0,1 4,4,237,0 

92.0. 14 : rem 89 

1 205 DATA3, 05 6,009, 2,020,026, 7 , 1 82,087,0, 

12.4.078.104.0. 13 trem 51 

1 206 DATA3 ,247,01 0,4,237,092,5,069,029,0, 

12.5.003.031.0. 13 trem 53 


1 21 1 DATA3, 196,009,1,237,092,2,020,026,0, 

05,10 trem 233 

1212 DATA3, 162, 07 4, 5, 059, 023, 0,29, 8 

treni 220 

1 21 3 DATA3, 1 58, Oli , 1 ,1 82,087,0,05, 9 

: rem 221 

1214 DATA 3, 1 62,014,4,036,078,0,29 

trem 126 

1215 DATA3, 196, 009, 2, 01 8, 039, 1,1 57, 069,0, 

2 8 : rem 117 

1216 DATA 3 , 1 58,01 1 , 4, 1 81 ,065,0,29 

trem 127 

1 221 DATA3, 24 7, 01 0,2,01 8,039,1 ,078, 1 04,0, 
28 : rem 95 

1 222 DATA3, 1 58,01 1, 5,207,034,0,29 

; rem 120 

1 22 3 DATA3 r 01 O r 01 3,2, 207, 03 4, 1 , 2 37,092,0, 
28 : r em 8 6 

1224 DATA5, 21 9, 032,4, 182,087,0,29 

trem 134 

1225 DATA3, 133, 006, 2, 21 9, 032, 1,036, 078,0, 

28 trem 98 

1 226 DATA4, 1 57,069,5,069,029,0,14,5,219,0 

32.0. 14 irem 100 

1 231 DATA3,1 30,0 08,2, 207,034, 1 , 1 57,069, 0, 

28 ; r em 1 0 2 

1 232 DATA3, 247,01 0, 0, 30,7, 8 :rem 77 

1 233 DATA3, 1 96, 009, 0,30 : rem 146 

1 234 DATA3, 1 58, 01 1 ,0, 30 : rem 138 

1 235 DATA3, 247, 01 0, 2,039,052,0, 29 

trem 122 

1236 DATA3, 01 0,01 3,0,30 : rem 129 

1241 DATA3, 158,01 1 , 2 , 138 , 0 56 , 0 , 29 

:rem 127 

1242 DATA3, 196,009,0, 30 :rem Ì46 

1243 DATA3, 055,008, 0, 30 trem 140 

1 244 DATA3, 196, 009, 2,039,052,0, 29 

t rem T 3 3 

1 24 5 DA TA3, 1 3 3,00 6, 2, 1 18, 04 6,0, 1 4, 5, 1 3 8,0 

58.0. 14 trem 84 

1 246 DATA3, 055, 00 8, 5,039,052,0, 29 

trem 131 

1 251 DATA3, ISO, 0G8, 2, 21 9, 043,0,05, 10 

trem 2 

1 252 DATA 3,081 ,007,5,039,052,0,14,5,058,0 

49.0. 14 : rem 88 

1253 DATA3, 193,007, 2,039,052,0,29 

; rem 128 

1254 DA TA3, 039, 006, 5, 005, 062,0,14,5,138,0 

58.0. 14 trem 85 

12 55 DATA 3,1 33,006,2,005, 062,1,036,078,0, 

28 trem 97 

1 256 DATA 3,1 93, 007, 0, 30 trem 1 46 

1 261 DATA3, 180,008, 2,005,062,1 ,201 ,082,0, 
28 trem 87 

12 62 DATA 3,089,01 0, 5, 1 38,058,0,29,8 

trem 235 

1263 DATA3, 081 ,007,0,30 trem 140 

1 264 DATA3, 1 80,008,1 ,036,078,0,29 

trem 1 3 ì 

1 265 DATA 3 , 1 96 , 00 9 , 2 , 1 38 , 0 58, 1 , 1 57,069,0, 

13.4.201.082.0. 14 trem 74 

1 266 DATA3, 226,004, 4,036,078, 5,005,062,0, 

13.5.157.069.0. 14 trem 70 

1 271 DATAI ,157,069,3,1 33 , 006 r 4 , 005 , 062 , 2 , 

138.058.0. 05.10 trem 220 

ì 2 72 DA TA3, 24 7, 01 0, 2,039,0 52, 1 ,036,078,0, 

13.4.193.073.0. 14.8 trem 161 

1273 DATA3, 1 58,011,1 ,036,078,0,29 

trem 130 

1274 DATA3, 056, 009, 7, 237, 092,0, 14,4,182,0 

87.0. 14 trem 95 
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1 275 DATA3, 196, 00 9, 2,069,029,1 ,2 37,092,0, 

29 srem 123 

1276 0ATA3, 158, Oli ,0,30 :rem 144 

1 281 DATA3,01 0,01 3, 2,003, 031 ,1 ,237,092,0, 

28 ;rem 81 

1282 DA TA3, 129, 015,4, 182,087,0,29,7 

srem 236 

128 3 DATA 3,247,010,0,30 : rem 140 

1284 DATA3, 01 0,01 3,2,069,029,0, 29 

srem 124 

1285 DATA3, 162,01 4,2,020,026,1 ,182,067,0, 

1 2,5,003,031 ,0,13 ; rem 41 

1286 DATA3, OSI ,007,5,069,029,4,237,092,0, 

12,4,078,104,0,13 ìrem 75 

1 291 DATA3, 1 96,009,2,059,023,1 ,182,087,0, 



05,9 srem 

21 3 

1292 

DATA3, 162,01 4,4,036,078,0,29,7 



: rem 

231 

1293 

DATA3, 158, Ol ì ,2,237,021 ,0,29 



: rem 

1 24 

1 294 

DATA3, 162,01 4, 5, 1 37, 01 9, 0, 29 



stero 

132 

1295 

DATA3, 196, 009, 2, 118, 046, 0,29 



; rem 

1 40 

1 296 

DATA 3 , 1 58,01 1,0,30 : rem 

1 46 

1 301 

DATA3,01 0,01 3, 2, 1 1 8,04 6,0,29 



; rem 

108 

1 302 

DATA 3 , 1 29,01 5, 5,101 , 041 ,0,29,8 



: rem 

21 2 

1303 

DATA3, 089, 01 0,0,30 :rem 

1 37 

1 304 

DATA3, 01 0,01 3,0,30 srem 

1 25 

1305 

DATA3, 180,008,2, 101 ,041 ,0,29 



:rem 

ni 


1306 DATA3 , 089 , 01 0, 5, 1 1 8,046, 0, 1 4, 5, 039,0 
52,0,14 : rem 84 

1 31 1 DATA3, 1 58,01 1 , 2 , 1 0 1 , 04 1 , 0 , 05, 1 0 

; rem 242 

1 312 DATA3, 162,01 4, 5,01 8,039,0,29,8 

srem 223 

1 31 3 DATA3, 196, 009,0, 30 :rem 145 

1314 DATA3, 158,011 ,0,30 srem 137 

1315 DA TA3, 193, 007,2, 018,039, 1 ,237,092,0, 

28 srem 108 

1316 DATA3, 196, 00 9, 0,30 :rem MB 


1321 

DATA 3, 

089, 

010, 

2,018, 

039, 

li 

078, 104 

,0, 


26 






: rem 

100 

1322 

DATA 3, 

180, 

008, 

r 5, 207, 

034, 

0, 

29, a 









: rem 

222 

1323 

DATA 3 , 

158, 

011 , 

0,30 



; rem 

137 

1324 

DATAI , 

237, 

092, 

0,30 



: rem 

143 

1325 

DATA 3, 

207, 

005, 

2,207, 

034, 

1* 

.201 ,082 

,0, 


13,4,078,1 

04,0,14 



: rem 

43 

1 32 6 

DATA 4 , 

237, 

092, 

5,018, 

039, 

0, 

.13,5,101,0 


41 ,0,1 

4 





: rem 

80 

1 331 

DATA 3, 

193, 

007, 

,2,207, 

034, 

11 

,201,082 

,0, 


28 






■ rem 

91 

1 332 

DATA 3, 

158, 

01 1 , 

5,003, 

031 , 

4 i 

,036,078 

,0, 


28,7 






irem 

T 95 

1 333 

DATA 3, 

106, 

009, 

,2,118, 

046, 

0, 

,29 









srem 

133 

1334 

DATA 3, 

158, 

ori , 

,0,30 



:rem 

139 

1335 

DATA 3 , 

193, 

007, 

,2,005, 

062, 

11 

,018,039 

,0, 


23 






:rem 

100 

1336 

DATA3, 

196, 

009 1 

,0,30 



:rem 

150 

1341 

DATA 3 , 

207, 

005, 

,2,005, 

062, 

11 

-018,039 

,0, 


28 






: r em 

91 

1 342 

DATA 3 , 

103, 

01 7 , 

,5,138, 

058, 

4, 

, 207 , 034 

,0, 


28,8,7 






: rvm 

46 

1 343 

DATA 3, 

162, 

01 4 j 

,0,30 



: rem 

137 

1344 

DATA 3, 

103, 

017, 

r 0 , 3 0 



; rem 

136 

1345 

DATA 3, 

158, 

011 , 

f 2 , 1 38 , 

058, 

0, 

r 29 









: rem 

132 

1 346 

DATA 3, 

162, 

014, 

r 0 f 3 0 



: rem 

140 

1 351 

DATA 3, 

180, 

008, 

,2,138, 

058, 

0, 

t 29 









srem 

130 

1 352 

DATA 3 , 

010, 

013, 

f 5, 039, 

052, 

0, 

f 29, 8 









srem 

216 

1 353 

DATA 3, 

089, 

010, 

,1,039, 

052, 

0, 

,29 









: rem 

126 

1354 

DATA 3 , 

010, 

013, 

r 0 , 3 0 



; rem 

130 

1355 

DATA 3 , 

180, 

008, 

,1,157, 

069, 

0, 

r 29 









: rem 

1 36 

1356 

DATA 3 , 

089, 

010, 

o 

o 



: rem 

145 

1 361 

DATA 3, 

133, 

006, 

r 1,157, 

069, 

0 

,29 









srem 

129 

1 362 

DATA 3, 

137, 

019, 

,4,005, 

062, 

0, 

,29,7 









srero 

225 

1 363 

DATA 3, 

129, 

015, 

,2,018, 

039, 

0, 

t 29 









: rem 

130 

1 364 

DATAI, 

137, 

01 9, 

f 0 , 30 



: r eco 

147 

1 365 

DATA 3 , 

010, 

01 3 , 

r 2, 03 9 , 

052, 

h 

, 00 5, 062 

f0 ( 


28 






;rem 

86 

1 366 

DATA 3, 

129, 

015, 

,0,30 



: rem 

146 

T 371 

DATA 3, 

196, 

009, 

-2,039, 

052, 

li 

,005, 062 

,0, 


28 






: rem 

103 

1 372 

DATA 3, 

162, 

014, 

-5,058, 

049, 

4, 

-138,058 

,0, 


28,8,7 






:rem 

61 

1 373 

DATA 3, 

078, 

012, 

0,30 



: rem 

144 

1 374 

DATA 3, 

762, 

014, 

0, 30 



: rem 

141 

1 375 

DATA 3, 

01 0, 

01 3, 

2,005, 

062, 

1 i 

,036,078 

,0f 


28 






srem 

92 

1 376 

DATA 3, 

1 29, 

01 5, 

0,30 



: rem 

1 47 

1 381 

DATA 3, 

103, 

017, 

2,005, 

062, 

li 

201 ,082 

,0, 


28 






: rem 

85 

1382 

DATA 3, 

178, 

02 0, 

5,138, 

ose. 

0, 

29,8 









: rem 

238 

1383 

DATA 3, 

162, 

014, 

0,30 



srem 

141 

1 384 

DATA 3, 

103, 

017, 

1,036, 

078, 

0, 

29 









: rem 

129 

1 385 

DATA 3, 

158, 

01 1 , 

2,138, 

058, 

1 , 

157,069 

,0, 


12,4,078,1 

04,0 

1,1 3 



: rem 

73 

1 386 

DATA 3 , 

7 62, 

014, 

4,237, 

092, 

5, 

f 00 5 , 062 

,0, 


12,5,1 

57, 069, ( 

M3 



: rem 

70 

1 391 

DATA 3, 

129, 

01 s , 

1,201 , 

082, 

2, 

f1 38,056 

,0, 


04,10 






: rem 

239 
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1 392 DA TA3, 1 37,01 9, 5,039,052,4,036,078,0, 

28.8 ; rem 219 

1393 DATA3 ,01 0 , 01 3 , 1 , 1 57 , 069 , 0 , 0 5 , 9 

: rem 221 

1 394 DATA3, 129, 01 5, 4, 005, 062, 0,29 

srem 128 

1 395 DA TA3, 089, 01 0,2,02 8,0 3 9, 1 , 1 38, 0S8, 0, 
28 : rem 1 T 7 

1 396 DATA3, 01 0,01 3,4,039,052,0,29 

S X em 123 

1 401 DA TA3, 162,01 4,2, 101 ,041,1,157,069,0, 

28 srem 89 

1402 DATA3, 103,01 7,0, 30 srem 731 

1403 DATA 3 ,078,01 2,0, 30 :zem 738 

1 404 DA TA3, 162,01 4,2,01 8,039,1,005,062,0, 

28 srem 91 

1 405 DATA3, 196,009, 2, 207, 034, 1 ,138,058,0, 

12.5.101 .041 .4.1 57.069.0. 12: rem 38 

1 406 DATA 3 , 1 37, 019, 5,01 8,03 9, 4,00 5,0 62, 0, 

28 :rem 106 

1 41 1 DATA3,01 0,01 3 , 2 , 20 7, 0 3 4 , 1 , 1 38 , 058 , 0 , 

05.9 irei* 183 

1 41 2 DATA 3 ,129,01 5,5,003,031 ,4,039,052,0, 

28,7 ìrem 191 

1413 DATA3, 089, 01 0,2, 069, 029, 0,29 

: rem 131 

1 41 4 DATA3, 01 0, 01 3, 5,020,026,0, 29 

: rem 10 6 

1415 DATA 3, 180,008,2, 069,029, 1 ,202,082,0, 

28 ; rem 102 

1 41 6 DATA 3 , 081 , 007 , 5 , 003 # 031 , 0 , 1 4 , 5, 207 , 0 

3 4,0,14 : r em 68 

1 421 DATA3, 196,009, 1 , 201 ,082,2,003,031,0, 

05.1 0 :rem 223 

1 42 2 DATA 3 , 1 80,008,4,036,078,0,29 

:rem 130 

1 423 DATA 3 , 1 96,009,1 , 1 57, 069,0,29 

srem 140 

1 424 DATA2,069, 029,4,005,062,0,29 

:rem 129 

1 425 DATA3, 226,004, 1 , 1 57,069,2,069,029,0, 

1 3. 4.201 .082.0. 1 3 trem 61 

1 426 DATA 5, 003,031 ,4,036,078,0,29 

irern 126 

1 431 DATA3 ,133,006,2,020,026, 1 , 1 57,069,0, 

28 srem 94 

1432 DATA3, 7 3 7, 01 9, 4, 00 5, 062, 0,29, 8 

:rem 224 

1 433 DATA 3 , 1 29, 01 5, 1 , 1 38,058,0,29 

srem 131 

1 43 4 DATA 3,1 37,01 9,4,039,052,0,29,7 

: r em 231 

1 435 DATA3, 01 0,01 3,2,018, 039,0, 29 

: r em 117 

1436 DATA3,1 29,01 5,0, 30 srem 144 

1 441 OATA3, 056, 009,2, 219,043,0,29 

t r em 127 

1442 DATA3, 247, 010, 0,30 irei 137 

1443 DATA3, 081 ,007,0, 30 i rem 140 

1 4 44 DATA3,0 56, 00 9, 5, 1 18,04 6,0, 14, 5,0 39,0 

52.0. 14 : rem 89 

1 445 DATA 3 , 196,009,1,003,031 ,2,118,046,0, 

12.5.219.043.0. 13 srem 53 

1 446 DATA 3 , 1 33,006,5,118,046,0,29 

* rem 129 

1451 DATA 3 ,081 ,007,1 ,003,031 ,2,225,036,0, 

05,10 : rem 222 

1452 DATA3, 247, 010, 4,069,029,0,29,7 

: r em 231 

1453 DATA3, 056, 00 9, 2,21 9,032, 0,29 

:rem 128 

1 4 54 DA TA3, 247,01 0,5, 069,029, 0,29,8 

srem 235 


1 

455 

DATA3, 

081 ( 

, 007, 

1. 

,039, 

r052. 

0, 

29 











; rem 

1 27 

1 

456 

DATA3, 

056 , 

r 009, 

0, 

, 30 



; rem 

148 

1 

461 

DATA 3 , 

226, 

004, 

1, 

r039, 

,052, 

0, 

29 











:rem 

122 

1 

462 

DATA3 , 

1 62, 

014, 

4, 

r 1 1 8 , 

, 046, 

o. 

29,7 











treni 

226 

1 

463 

DATA 3 , 

1 58, 

rOll , 

0, 

. 30 



: rem 

1 42 

1 

464 

DATA3, 

1 62 1 

r01 4, 


p 30 



: rem 

1 41 

1 

465 

DATA3, 

1 96, 

r 00 9 , 


rOlfl, 

r 03 9 , 

0, 

29 











: rem 

1 40 

} 

466 

DATA 3 , 

1 58, 

,011, 

r0, 

p 30 



s rem 

145 

1 

471 

DATA 3, 

08Ì , 

,007, 

r 2 j 

,028, 

, 039, 

o. 

29 











srem 

129 

ì 

4 72 

DATA 3, 

24 7, 

rOlO, 

, 5 i 

,225, 

,036, 

0, 

29,8 











:rem 

227 

1 

473 

DATA 3, 

056, 

,009, 

,0, 

,30 



treni 

147 

1 

474 

DATA 3, 

247, 

,01 0, 

p 0p 

,30 



: rem 

1 42 

1 

475 

DATA 3, 

081 . 

,007, 

r 2 j 

,219, 

,043, 

1 , 

020,026 

p,Q, 



28 







: rem 

96 

1 

4 76 

DATA 3, 

056, 

,009, 

,0, 

,30 



srem 

150 

1 

481 

DATA 3, 

226, 

,004, 

,2, 

,219, 

r 043. 

1 , 

020,026 

ì,0, 



28 







: rem 

91 

1 

482 

DATA 3, 

1 62, 

,01 4, 

, 5, 

,018, 

,039, 

4, 

059,023 

1,0, 



28, B, 7 







; rem 

52 

ì 

483 

DATA 3, 

1 58, 

,011, 

,0, 

, 30 



; rem 

144 

1 

484 

DATA 3, 

1 62, 

,01 4, 

,0, 

,30 



: rem 

143 

1 

485 

DATA 3, 

1 96, 

,009, 

p 1 i 

,118, 

,046, 

0, 

29 











: rem 

1 40 

1 

486 

DATA 3 , 

1 58, 

,011 , 

,0, 

, 30 



: rem 

1 47 

1 

491 

DATA 3 , 

081 , 

,007, 

r 1 P 

,118, 

,046, 

0, 

29 











: rem 

1 28 

1 

492 

DATA 3 , 

247, 

,010, 

, 4, 

p 21 9, 

,043, 

0, 

29,7 











: rem 

228 

1 

493 

DATA3, 

056, 

,009, 

p 2, 

p 237 , 

,021 , 

0. 

29 











: rem 

1 30 

1 

494 

DATA 3 , 

247, 

,010, 

,0, 

p 30 



srem 

144 

1 

495 

DATA 3, 

081 , 

,007, 

p2p 

,020, 

,026, 

0, 

29 











: rem 

123 

1 

496 

DATA 3 , 

056, 

,009, 

-0, 

p 30 



: rem 

1 52 

1 

501 

DATA 3, 

226 , 

,004, 

r 2 , 

P 02 0 , 

, 026, 

0, 

29 











srem 

109 

1 

50 2 

DATA3 , 

1 62, 

,01 4, 

r 5 , 

r 1 57, 

,024, 

0, 

29,8 











trem 

222 

1 

50 3 

DATA3, 

078, 

p 01 2, 

pi , 

,138, 

,058, 

0, 

29 











: rem 

129 

1 

50 4 

DATA 3 , 

1 62, 

,014, 

r 0 f 

p 30 



srem 

136 

1 

50 5 

DATA3 , 

1 96, 

,009, 

r 2 | 

,058, 

, 04 9, 

1, 

157,069 

,0, 



28 







srem 

124 

1 

50 6 

DATA 3 , 

078, 

,01 2, 

r0, 

p 30 



srem 

142 

1 

51 1 

DATA3, 

133, 

,006, 

r 2 , 

,058, 

,049, 

W 

1 57,069 

',0, 



28 







: rem 

109 

1 

51 2 

DATA 3 , 

1 37, 

,019, 

,5, 

,039, 

,052, 

4, 

181 ,065 

,0, 



28,8,7 







: rem 

53 

1 

51 3 

DATA3, 

109, 

r 01 6, 


r 30 



:rem 

139 

1 

51 4 

DATA 3, 

137, 

,019, 

0, 

r 30 



; rem 

144 

1 

51 5 

DATA 3, 

01 0, 

pOI 3, 

-1, 

rlSl, 

,065, 

0, 

29 











srem 

115 

1 

516 

DATA 3, 

109, 

,016, 

,0, 

r 30 



srem 

142 

1 

521 

DATA 3, 

1 80, 

,008, 

1 i 

,181, 

,065, 

0, 

29 











srem 

124 

ì 

522 

DATA 3, 

01 0, 

, 01 3, 

4, 

157, 

.069, 

0, 

29, 7 











: rem 

222 

1 

52 3 

DATA 3, 

247, 

,010, 

2, 

r 020 J 

,026, 

0, 

29 











; rem 

7 7 3 

1 

524 

DATA 3, 

01 0, 

,01 3, 

0, 

f 30 

* 


: rem 

1 29 

1 

525 

DATA 3 , 

1 80, 

,008, 

2 , 

r 003, 

,031 , 

0, 

29 











S rem 

115 

1 

526 

DATA 3 , 

247, 

,01 0, 

0, 

30 



: rem 

T 40 

1 

53T 

DATA 3 , 

207, 

005, 

2 , 

r 00 3 , 

.031 , 

0, 

29 











: r em 

T 09 

1 

532 

DATA 3 , 

103, 

, 01 7, 

■5, 

069, 

.029, 

0, 

29,8 











srem 

230 
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1 606 DA TA3, 162,01 4,5, 138,058,0,29 

:rem 133 

1 67 1 DA TA3, 196,009,2,039,052, 1 ,225,036, 0, 
28 :rem 105 

1612 DATA 3 , 1 58,01 1 , 5 , 1 1 8 , 04 6 , 4 , 0 1 8 , 039 , 0 , 
2 8,7 t tetti 206 

161 3 DATA3, 193,007,2,21 9,043,0,29 

; rem 123 

1614 DATA3, 196,009,5,01 8,039,0,29 

: rem 139 

1615 DATA 3 , 1 33 , 006 , 2 , 21 9, 043 , 1 ,01 8,039,0, 

28 : rem 100 

1616 DATA3, 1 23,005, 5, 118, 04 6 , 0 , 1 4 , 5 , 039 , 0 

52.0. 14 :rem 81 

1 621 DATAI , 081 , 007, 1 , 01 8, 039, 2, 1 1 8, 046, 0, 
05,10 : rem 237 

1622 DATA3, 1 33,006,0,30 :rem 136 

1623 DATA3, 081 ,007,0,30 irem 140 

1 62 4 DATA2, 21 9,04 3,1 ,21 9,04 3,0, 29 

srem 127 

1625 DATA2, 21 9,043,1,069,029,0,14,4,018,0 

39.0. 14 : rem 91 

1 626 DATA5, 1 18, 046,4, 225,036, 0, 29 

;rem 135 

1 631 DATA 3,1 93,007,2,225,036,1,039,052,0, 
20 ;rem 102 

1 632 DATAO, 31 i tetr\ 1 66 

1 63 3 DATA4, 039, 0 52, 0,1 5, 4,005,062,0,1 5 

s rem 103 

1 634 DATA?, 01 8,039,4, 1 38,058,0,29 

:rem 139 

1635 DATAI ,039,052, 3,055,008,2,160,027, 4, 

118.046.0. 27 :rem 81 

1636 DATAO, 31 :rero 170 

1 647 DATA6, 055, 008, 5,020,026,4,1 18,046,0, 

1 3, 4,225,036,0,14 : rem 56 

1642 DATA2, 069,029, 4,01 8,039,0,29 

; r em 139 

1643 DATA3, 081 ,007,1 ,018,039,2,059,023,0, 

05,10 : rem 240 

1644 DATAO ,31 :rem 169 

1 645 DATA2 ,237, 021 , 4 , 225, 0 3 6 , 0 , OS , 9 

: r em 223 

1646 DATA5, 137, 01 9, 0,1 5,1,018,039,0,14 

; rem 1 1 4 

1051 DA TA3, 226, 004, 2, 1 37,019,1,018,039,0, 

28 srem 103 

1052 DATAO, 60, lì srero 56 


7 533 DATA 3 , 1 62 , 01 4 , 1 , 207, 03 4 , 0 , 29 


1534 DA TA3, 103,01 7,0,30 : rem 13 

1 535 DATA 3 , 1 58,01 1,2,069,029,1 ,101 ,041 ,0 


1 536 DATA3, 162,01 4,0, 30 : rem 14 

1541 DATA3, 193, 007, 2, 069, 029, 1,1 01 ,041,0 

28 * :rem 9 

1 542 DATAI, 158,011, 5, 003,031, 4 ,01 8,039,0 

28,8,7 : r em 3 

1543 DATA3, 196,009, 0, 30 :rem 15 

1 544 DATA3, 1 58,01 T ,0, 30 :rem 14 

1 545 DATA3, 193,007,1 , 1 18,046,0,29 


1546 DATA3, 196,009,0, 30 ;rem 153 

1551 DATA 3,123,005,1 ,118,046,0,29 

: rem 120 

1552 DATA3, 129, 01 5, 4 ,21 9, 04 3, 0,29 , 1 

: rem 229 

1 553 DATA 3 , 01 0, 01 3, 2,005, 062, 0, 29 

:rem 110 

1 554 DATA3, 129, 015, 0,30 : rem 145 

1 5 55 DATA 3, 247, DI 0,2,01 8,039,0, 29 

: rem 129 

1556 DATA3, 010, 013, 0,30 : rem 134 

1 56! DATA 3,081 ,007,2,018,039,0,29 

: rem 128 

1 562 DA TA3, 247, 01 0,5, 2 2 5,03 6,0, 29, 8 

: rem 227 

1 563 DA TA3, 056, 009,1 ,21 9,04 3,0, 29 

irem 131 

1 564 DATA3,247,01 0,0, 30 : rem 142 

1 565 DATA3 ,081 ,007,2, 21 9,043,1,039,052,0, 
28 srem 105 

1 566 DATA3, 056, 009, 0,30 : rem 150 

1 571 DATA3, 226, 004, 2, 21 9,043, 1 ,039,052,0, 

28 ;rem 700 

1 572 DATA3, 162,01 4, 5,01 8,039, 4,1 18,046,0, 

28,3,7 irera 53 

1 573 DATA3, 1 58,01 1 ,0, 30 : rem 144 

1 574 DATA3, 162,01 4,0, 30 : rem 143 

1 575 DATA3, 196,009, 1 f 1 1 8, 046, 0, 29 

: rem 140 

1576 DATA3, 158, Oli ,0,30 ire® 147 

1 581 DATA3,01 0,01 3,1,1 18,046,0,29 

: rem 117 

1582 DATA3, 129, 01 5, 4, 21 9, 043, 0,29, 7 

: rem 232 

1583 DATA3, 247,010,0,30 :rem 143 

1584 DATA3, 01 0,01 3,0,30 lucra 135 

1 585 DATA3, 180,008, 1 , 21 9,043,0, 29 

: r em 132 

1 686 DATA 3 , 247,01 0,4,118,046,0,14,4,039,0 

52.0. 14 srem 88 

1 591 0ATA3, 158,011 ,1,219,043,0,29 

srem 128 

1 592 DATA3, 1 62 , 01 4, 4, 01 8, 039, 0, 29, 7 

: r em 231 

1 593 DATA 3 , 1 96,009,0,30 *rem 155 

1 594 DATA3, 1 58,01 1 ,0,30 : rem 147 

1 595 DATA3, 193,007, 2,036,078, 1,01 8,039,0, 
28 ;rem 119 

1 596 DATA3, 196,009,0,30 :rem 158 

1 601 DATA 3 , 247,01 0,2,005,062*1,018,039,0, 
28 : rem 90 

1 60 2 DATA 3 ,01 0,01 3,4,225,036,0,29,7 

;rem 211 

1 603 DATA3, 056, 009,0,30 treni 142 

1 60 4 DATA3, 247, 01 0,2,1 38,058,0,29 

: rem 128 

1605 DATA 3 , 081 ,007,1,225,036,2,039,052,0, 

12.5.005.062.0. 13 treni 46 


Gli 
ultimi 
aranno 

i 

primi? 

Giudicalo tu. 

Anche se, in ordine di tempo, 
siamo gii ultimi a uscir e con /fòri 
" dedicati " ai più diffusi bome e 
persona/ computer, siamo convinti 
che il lettore attento ed esigente 
apprezzerò la qualità dei contenuti 
e /a loro presentazione. 
Abbiamo selezionato e tradotto i 
best-seller mondiali che accolgono 
quanto di più utile é stato scritto 
per if tuo competer. 

Scegli a colpo sicuro? 

Puoi ordinare direttamente i tifo ti presentati 
compilando ed inviando t\ coupon pub b/rcoto 
oppure acquistarti presso t più qualificati 
computer shop e te migliori librerie. 

LA DI ORDINAZIONE - LIBRI 

Carpitore e spedire in butto chiusa a; 

Lmè- Viole Rateili 5 * 20Ì24 Milano 
» 02/6080641-6600642-48808+3 

Ondino i seguerc/i libri per un importo totale di L 

- L 2,000 come confribtrto fisso per spe se dì spedizione 

Cod Cod. { 

Cod L Cod. | 

Cai . + Cod. | 

I Gàitonti a/togati 

- Auegno oifegerfo n“ 

Z Hb spedito l'importo a mezzo voglio postole 

Z Ho versato V importo sul CCP rt° ì 944 5 204 intestato a 
1 »#if * Milano 

z %r in con frossejjr >0 al postino al ricevimento dei j 

Cognóme J ... rirr . i r .. r .... 



GIP ..... Città 

Se ndvesto torturo - codice fisco!# 

Gte £L- 





Inoltre, i Paper Boah; fa 
raccolta dei programmi 
suddivisi per macchina di 
Pope r Soft il primo 
settimanale ai software su 
corta per ri tuo computer. 

Paper Book - programmi 
per Apple // - 

Cod ASOC 005 L. 1&000 

Paper Book - programmi 
per VtC 20- 

CodL ASOC 003 L 16.000 

Paper Book - programmi 
per Commodore 64 - 
Cod. ASOC 004 L 
Paper Book - programmi 
per Texas TI 99/4A - 
Cad.ASOCQOJL 16.000 

Paper Book - programmi 
per ZX Spectwm - 

Cod. ASOC 006 L 16.000 

d.soft 

VSote R&ie*. 5 WWMdana - lei. a2/ÓBXB*J-mQ84? óeS(X*3 


tn ogni votame, 
corredato di cassetto, 
offre 40 programmi 
per if tuo computer: 
giochi grafici, 
utility, arcade, 
odventure uno mrscefo 
esplosiva di software 
' pronto oli' uso ' f 


J. soft. libri di qualità 

Per Cemnatf are 64 

Giochi fantastici per if C 64 

Cod. ASOC 001 L 42.000 
(inclusa cassetta) 

Un libro pensofo e 
realizzato per il 
divertimento dell' utente 
del C 64 ; contiene 1 9 
giochi di vorio genere 
omp tomento commenfofi. 
t 'attento studio dei 
programmi potrò essere 
vantaggioso per 
l'apprendimento delle 
tecniche di 
progra m mazione. 

tt libro del C 64 
Volume I 

Cod. ASOC 010 L 24.000 
(inclusa cassetto ) 

Ulìbrod*tC64 
Volume 2 
Cod. ASOC Olì L 
(inclusa cassetto) 

/ due libri illustrano o 
fondo le possibilità del é 
Commodore 64. Un 
compendio di utili 
consigli, e quont'oftro è 
necessario per conoscere 
meglio if propria 
calcolatore . Esempi pratici 
completano l'esposizione 
in modo chiaro ed 


PtrUt^Ktrau 

15 giachi grafici per 
ZX Spectrvm 

Cod ASOC 002 L 2 4.000 
(inclusa cassetta) 

Un fantastico volume con 
?5 entusiasmanti giachi 

G rafici perii tuo ZX 
pectrum. Tutti i 
programmi sono ’p^rth 


C 64: suono e grafica - 
Volume I 

Cod. ASOC 008 L 2 4.000 
(inclusa cassetto } 

C 64: suono e grafico - 

Votame 2 

Cod. ASOC 009 L 24.000 
(ine fusa cassetto) 

Due vo/umi che non 
possono mancare netta 
biblioteca de/futen te 
Commodore. Una miniera 
di idee e suggerimenti per 
la programmazione del 
tuo personal computer. 
Una vasta serie ai 
programmi esemplificotìvi 
guidano il teff ore af 
migfior sfruttamento del 
Commodore 64 


ali' uso' e ampiamente 
commentati, I programmi 
sono scritti sfruttando 
appieno le capacità del 
co /colatore ed if fora 
studio può giovare o 
chiunque intenda affinare 
le proprie tecniche di 
programmazione. 



COME USARE 
IL TUO COMMODORE 64: 
linguaggio macchina, ingrassi/ 
uscita c unità periferiche 



di F. Montali 
ed, II Rostro 

Il C64 e diffuso nel nostro paese ormai 
dalla metà del 1983, e molti sono i pos- 
sessori di questo computer che hanno 
sviluppato una buona conoscenza della 
macchina e della sua programmazione 
in BASIC, Una volta acquisita questa 
esperienza nell'uso in BASIC dei C64, 
nasce spontaneamente in quasi tutti i 
programmatori il desiderio - a metà tra 
curiosità e necessità - di imparare il 
linguaggio macchina per ottenere dal 
computer tutte quelle funzioni altrimen- 
ti impossibili se programmate in BASIC. 
Inoltre, chi possiede unità periferiche, 
quali stampanti e disk drive, sente spes 
so il desiderio di ottenere prestazioni 


sempre migliori, e ciò è possibile solo 
con una buona conoscenza sta hardwa- 
re che software delle unità interessa- 
te, 

Questo libro si propone dì guidare il 
lettore - che ovviamente si suppone già 
esperto della programmazione in BA- 
SIC - nel nuovo mondo del linguaggio 
macchina; dopo il primo capìtolo, dedi- 
cato all'esposizione della struttura har- 
dware del C64 ed in particolare alla sua 
mappa di memoria, sì imparerà come 
memorizzare delle routine in linguaggio 
macchina entro un programma BASIC, 
come accedere alle routine (già pron- 
te!..! del sistema operativo e come rea 
lizzare, tramite il l/m. grafica in alta 
risoluzione ed animazioni. Un altro capi- 
tolo affronta i problemi degli ingressi e 
delle uscite, argomento di estremo inte- 
resse per chi intendesse interfacciare il 
computer ad apparati casalinghi, come 
il termostato del riscaldamento, lo se al 
da bagno, ecc. 

Infine un ultimo capìtolo è dedicato alle 
periferiche ed ai programmi già pronti, 
disponibili per il loro sfruttamento otti- 
male. 

Data la notoria difficoltà che in genere 
si riscontra nel l'approccio al linguaggio 
macchina ed al sistema di numerazione 
binario, ben vengano volumi come que- 
sto che possono chiarire subito ì concet- 
ti più "ostici" ed aprire velocemente la 
strada ad una diretta utilizzazione di 
quanto imparato. 


COMMODORE 64 
LA GRAFICA 
E IL SUONO 

dì R, Bonelli, L, Parrucconi, 

F. Racchi, G. Valerio 
ed Jackson 

Seguito logico dì altri due volumi dedi- 
cati rispettivamente al BASIC ed alla 
gestione file del C64 - già precedente- 
mente recensiti su queste pagine — que- 


st'ultimo tratta gli argomenti forse più 
affascinanti in un personal che si rispet- 
ti: la grafica e gli effetti sonori. 

Il libro è strutturato su quattro distinti 
capitoli, partendo dalle applicazioni 
grafiche elementari ottenibili diretta- 
mente da tastiera e man mano appro- 
fondendo l'analisi di tutti i procedimenti 
per ottenere immagini più compiesse, 
Particolare spazio ed attenzione vengo- 
no dedicati all'analisi della programma- 
zione che utilizza la pagina in alta risolu- 
zione del C64 e gli otto SPRITE disponi- 
bili; con l'uso di questi ultimi vengono 
proposti interessanti programmi di ani- 
mazione, che permettono di realizzare 
emozionanti videogiochi. I concetti 
esposti a livello teorico vengono imme- 
diatamente applicati in programmi 
esemplificativi listati nel volume e con- 
tenuti già registrati in una cassetta alle- 
gata allo stesso, risultando quindi di fa- 
cile ed Immediato apprendimento an- 
che per il principiante, Tra questi pro- 
grammi ne spiccano alcuni, per il trac- 
ciamento di superfìei in alta risoluzione, 
In grado di realizzare grafici veramente 
spettacolari (sul tipo di quelli realizzati 
nella sigla della trasmissione 
"Quark".,,]. 

Un intero capitolo viene dedicato al suo- 
no. argomento diverso, ma complemen- 
tare alla grafica: esso tratta tutte le pos- 
sibili applicazioni dei tre generatori indi- 
pendenti implementati sul €64, da quel- 
le piu semplici, ma necessarie per com- 
prenderne il funzionamento, fino a pro- 
grammi avanzati, che comprendono 
l'uso dei filtri, modulazione ad anello, 
sincronizzazione e variazione dinamica 
del suono, 

In appendice è compreso un elenco del- 
le locazioni dì memoria preposte al con- 
trollo del VlC-11 (il chip che presiede alla 
gestione del video nel C64) e del SID 
{il chip che presiede invece alla gestione 
del suono), unitamente ad una tabella 
con le frequenze delle varie note musi- 
cali. 

Tutti i listati dì programma compresi nel 
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volume sono stampati con cura e risul- 
tano pertanto di buona leggibilità: la 
cassetta allegata offre inoltre il vantag^ 
gio di poter osservare sul video i! funaio 
riamente di un programma, analizzan- 
done contemporaneamente il listato sul- 
le pagine del libro. 



I libri vengono 

offerti con H 10% di sconto 

sai prezzo di copertina 


1 libri recensiti 
possono essere 
ordinati 
utilizzando 
il coupon 
a pag. 82 


fi Dalla grande 
wedkola Jackson 

Tutto sull’hobby 
e Home computer 



La rivista oel computer in casa "Prove su 
strada" di software e programmi per tutti i 
personal computer. 

11 numeri all'anno: L 3,500 a numero 
Abbona mento: solo L 31,500 


UiDCO 



La guida indiscussa al fantastico mondo dei 
videogame La più eccitante, divertente, 
istruttiva rassegna del settore. 

11 numeri all'anno: L, 3.500 a numero 
Abbonamento: solo L 31,000 


elektor 

tt mensile di elettronica venduto in mezzo 
milione di copie e redatto in 7 lingue. Con 
articoli su: applicazioni, progettazioni, 
sperimentazioni, invenzioni, 

11 numeri all'anno: L 3,000 a numero 
Abbonamento: solo L 29.000 



Il mondo delie 7 note in 
versione , elettronica. Con test strumentala 
novità e analisi del mercato, servizi speciali. 
10 numeri all'anno: L- 3.000 a numero 
Abbonamento: solo L* 24.000 


Quando rinformazione fa testo 
r 1 

1 In busta chiusa inviate Questo coupon a: 1 

Gruppo Editori aie Jackson via Rose Mini, 12 - 20124 Mi 

□ Desidero ricevere GRATIS un numero della Rivista 


(ali ego L. 1000 in francobolli per contributo spese 
di spedizione) 

□ Inviatemi GRATIS il Catalogo della 
Biblioteca JACKSON (allego L 1.000 
in francobolli per contributo spese di 
spedizione) t 

Nome : 

Cognome 

via _ _ _ , ... , 

CAP Città _l _ 
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Cerco programmi di qualsiasi tipo tu 
casse* i«i per C64. Mandare elenca a 
Macello Alessandro Via 4 Novembre 
20050 Ronco Br foni ino Tel 
039/671287 

Compro copia dei numeri 5 e 6 di 
'‘Commodore Computer Club". Fran 
co Spada Via Fardell*. 444 91100 

Trapani Tet DK3/223Q1 


Carabo software per L64 tu disco e 
cassetta, anche ultime novità come: 
Summet Carnet. Impo&sibfe Mf&sfon. 
The Gasile Ol Dslor Greep. Turbo 
Disco Gyrusi, Disk Mimic e molti, mol 
ti altri, Offerta sempre valida Massi mi 
Fano Bruno Via C Cittadini, 62 
53100 Siena Td. 0577/ 54075 

Vendo VIC 20 piu registratore C2N, 
mollo sof luti re. a Kbyte RAM. 3 «byte 
super espander, programma di Archi- 
lo, 3 libri. A tolto, usalo pochissimo e 
in imballo originale, a L 630,000 Tele 
fonare ore pasti Paolo ZftlO Via Del 
Castagnoli!?, 33 15048 Valenza (All 
Tel, 0131/951096 

Causa passaggio t sistema superiora 
vendo VIC 20 più 6 programmi in car 
■ uccia, 3 libri di programmi v ni ili zzo, 
imballò originale T ut io in ot i ime condì 
sforna L. 240.000 trattabili Telefonare 
dalle 19 in poi Giancarlo Lacchin -Via 
A. Kramet. 6 20Ì29 Milano Tel 

02/7935 Z3 

Vendo programmi per VJC 20 uà ver 
sione base che con espansione memo 
ria anche blocco 5 Telefonare c tc rive 
re per accordi Gumrt Caudino Vti 
G ragia, 18 10 136 Termo Tel 

011/363830 

Per CBM 64 vendo cassetta contento 
te 8 fantastici giochi come BC e One 
On One e il programma I miei anno al 
la velloso prezzo di L. 30 000. Per nce 
vere La cassetta telefonare a; Loris Zuc 
chetti - Corso Milano. 4 - 25056 Punte 
di Legno (BS) Tei 0364/91018 

Vendo VTC 20 più registratole C2N a 
L. 200 000; inoltre véndo consolle Intel 
levatoti più 1 cartucce mollo belle a L 
400.000 (solo consone L 2300001 Te 
le fonare dopo le 14 Mario Barbero 
Va Tiboldo Bolla. 25 13060 Tavigliatw 
(VC) Tei 015/472134 

Vendo VIC 20 più registratone C2N L 8 
Kbylc RAM. super espander, 6 casse t 
te con giochi ed ufiity, vari libri. Tutto 
in pei f e tte candì* «ni a L 350 000. Um 
berlo C roti i . Via Lidie*, 4 42015 Q>r 
reggio (REI Tel. 0522. 694144 

Siamo due ragazzi di Gonfia che han- 
no il VIC 20 e lo Spectrum, yen diamo a 
prezzi bassissimi programmi di qualsia 
si genere (anche copiatori), Chianese 
Flavio - Via Virgilio, 17 341 70 Gorizia 
Tel 0481/33183 

Fat E i t ega lare un VIC 20 pfo avrai centi' 
naia di programmi gralis. 8 prezzo? Po 
chissimo- solo L 100 000! Contattate 
mi, io sono Alessio Saltano Via Mali 
hrarv l 20090 Trazzano SN IMI t 
Tel 4453193 

Vendo per C64 centinaia di programmi 
a prezzi favolosi. da L 5 000 a L. 
15 000. The Last One L. 15.000, Fighi 
U L. 10.000. Per cassette 6 programmi 
L 20-000 inclusa cassetta. A richiesta 
anche manuali N,B Le spese del disco 
e di spedizione sono escluse Luigi Pa 
lu mbo Viale Gt arme i 801 22 Napoli 
Tel OSI 66006 


Vendo programmi gestionali per Com- 
modore 64 Cassetta giochi per CBM 
64. con ultime novità, L. 25.000, Pro 
grammi per VIC 20 a L, 500 cadauno 
(acquisto minimo 10 programmi). Ma 
nuati in ^aliane Telefonare ore 20.30 
2130 Roberto 20145 Milano Tel. 

wwm o 

Vendo olire 500 programmi per CBM 
64 a prezzi stracciati Ubaldo Mancini - 
Via VBkfeUatorre, 174 1015-1 Tonno - 
Tel. 011/7391285 

Vendo V)C 20 più registratore. 4 car- 
tucce (tra età "Gcrf'h corso compiete 
"Imroduzhone al BASIC" 1 e 2 parte (4 
cassette più 2 libri) a L 350 000 tra (ta- 
bi li Regalo kst ari e atrr i programmi. An 
tonino Famuian Via Castra ,21 22038 
Taverne no (CO) Tel 031 420528 

Cerco espansione per VIC 20, cambio 
con autoradio mangianastri stereo Phi- 
lips 682 OM FM oppure Sharp 
RG59Ù0E A5TS (Automa de Stèrno 
Turtfung System) ANSS (Automatic 
Notse Supprvsior System) FM LW 
MW Telefonare dalle 13.30 afte 15 Re 
nato Canamaschi Via Rizza, 22 - 
42010 Villaroiia (RE) Tel 
«grattili 

Vendo fawlosi giochi per Commodore 
64 Basket , Baseball , Iniernai «mal Soc- 
cei, Turbo Tape. ecc. Per ricevere la 
fora inviare L. 1,000 in francobolli, An 
none io sempre valido Andrea Mdrtó- 
celh ■ Via Car piano - 06023 Campen 
IPG) 

Vendo, causa doppio regalo. VIC 20 
ancora imballalo piu: registratore, 
espansii me 16Kbyte. alimentai ore, 
convertitore, 20 cassette gioco, 5 car- 
iucce giocò, a sole L 300 000. Marno 
Pendino Via Ugo Betti. 25 20100 

Milano TeL 02/3087174 

Vendo programmi per VIC 20: potete 
scegliere tra 75 giochi (dici* 50 m LM) e 
prezzi eccezionali, ad esempio, casset 
la C90 con 25 giochi L 10.000, tutti in 
blocca L. 25 000: oppure sfusi da L. SCO 
a L 1 500 cadauno, Richiedere Etsta. 
accludendo francnboBc. Disperabili an 
che alcuni listati Ga lami Martello Va 
Tofrenova, 134 - 00333 Roma 

Vendo per VIC 20 cartuccia “The 
Cpunt" al prezzo di L- 10000 Inoli re 
cambio giochi su cassetta Scrivetemi!' 
Federico Fioretti Via Aurata, 607 L 
00165 Roma Tei 06 6220963 

Compro Commodore 64 psù registra 
tewe. pago al massimo L 600 000 Mar- 
celo Galanti - Via Torrenova. 134 
00133 Roma 


Vendo giochi lista ti e tu castella per 
VIC 20. Sergio Marchese Via G Rie 
dardi, 12,'B 66013 Chieti Scalo Tel 
■0871 '54612 

Per VIC 20 dispongo cb 100 programmi 
che vendo a prezzi eccezionali Ricco e 
dettaglialo calatogli inviando L LODO 
a; Paolo Valchera Via Del Poggio, 8 
03100 Prosinone Tel 81159 

Vendo come nuovo V)C 20, joystick, t 
cassette software (Star Bai tic, Roud 
Race) a L. 280.000. Inoltra vendo oltre 
150 programmi per VIC 20 espanso ed 
«espanso da L 1 000 a 10 000 Marco 
Luna Via Lorenzo il Magnifico. 20 
00162 Roma Tef 06- 4271839 

Vendo, cambio giochi ed utility per 
Commodore 64 Svi su nastro che su 
disco. Richiedere la lista Rispondo a 
runi Annuncio sempre valido Aberro 
Mmrnucci Viale Elba. 61 57037 Por 
io! errato fU) ■ Tel- 0665 92756 (ore pa- 
sti) 

Vendo 100 giochi per CBM 64 Prezzo 
eccezionale' Sofo L- 5CMX0 Giochi co- 
me Calcio. Pofe Posiiion, Zax son, Tar 
zoo, Sam, Skramble, Basket. Forbiti 
den Foresi. Fittali, Butgrr Time -, Ri 
chiesta lista gratis, telefonare ore pasti 
e serali oppure scrivete a Andrea Relè 
Moderi - Via Vafosa di Sopra, 26 20052 
Monza (MI) Tel 039/741597 

Cambio, vendo software per CBM 64 
Invio cassette o dischi con 1 rmei pro- 
grammi a chi musa k? sue. Sono interes- 
sato particolarmente ad un program 
ma di auiorun per disco e casse! re. 
Scrivetemi per scambio Cerco anche 
libre! lo isi razioni 1541 in ifofanu Vin- 
cer zo Boni i Va Umbe ri o, 1 74 9 V021 
Campobello di Ma zara (TP) 

Vendo eceeziunali giochi per VIC 20 
m espanso su casse! ta 8 giochi L. 
16.(300 sdì an io Posseggo anche giochi 
da 8 Kbyte che vendo a sòie L 6 000 
l'uno, sempre su casse! la Richiedi la 
fona Giampaolo Celimi Via Paradiso, 
41 66100 Cbwii Tel 6t 142 [ore paoli) 

Vendo centinaia di programmi per 
C64 stupendi giochi, gestionali, utJity, 
linguaggi Alcuni esempi. Logo. 
FOHTH, Pascal. Coma! Austro Com 
pler. Fet Speed. Super Baw- Cale Re 
sul. Easy Fife. Easy Scnpi , Ma^c De»W 
Clauc^o Segatori Via R Fancelli, 23 
00169 Roma TeL 06 2679183 

Vendo, canforo 2 cartucce per C64, 
Avenger e Kick Man conno Music Ma 
chèle e Music Compose! . Claudio Por- 
ceiana Via OLmi. 5 - 10048 Vinoso 
(TO) Tel Oli 9651569 


Per VIC 20 cambio o invio contro rim- 
borso spese programmi su cassetta. 
Assicuro risposta a tulli- Alvaro Cec 
carini Vìa Di Vittorio, 10- 58022 Folfo- 
néca (GR) 

Cornpro pei C64 programmi giochi, 
utility, animazione, grafici, etc, possi- 
bilmente su disco Pre(erib0e materiale 
di pnm'ordine. Inviare liste molto detta 
gitale e prezzi. Preferisco trattare in 
Hocco grosse quantità (fi programmi. 
Tira Cerosa Via Monte Sanie. 6 
22053 Lecco (CO) 

Cambio programmi e giochi per C64. 
Inviare liste, nspondoa tulli. Cedo IQa 
scella [su nastro) a L 15,000. Telefona 
re ore 19 21.30. Gianni Cotiogni Via 
strambino. 23 - 10010 Garrone (TO) 

Vendo per i possessori del CSM 64 
bellissimi giochi, molli col Turbo Tape 
Ne possiedo Quasi 160 fra cur Calcio, 
Poto Position, Frogger, QBen, Deferì 
der, Fort Apocalypse, f lunch Bach. 
Prezzi bassissimi e da concordare Bel- 
ila Francesco Via G Leopardi, 91 - 
95100 Catania Tel 095/378514 

Cambiò software per C64. oltre 500 
programmi Mandate le vostre Iste a; 
Virginio Car cu ani Vw Diaz, 5 20080 
C isbà no (MI) 

Vendo eccezionali giochi, anche in 3D, 
pei C64. m blocco o sep&raiamente 
Se miele o Irfelvute Inoltra vendo 
VIC 20 più reg&rra tora C2N, cassetta 
con 50 giochi. Riccardo Beiardim Via 
Pfou S Monrano, 16 - 80076 Lacco 
Ameno (NA> Tel OSI TO5453 

Vendo cari odge “Rsid On Fort Knox* 1 , 
per VIC 20 mtifiànsò, aL 45.000 imi- 
tabili Scrivere o Telefonare a- Maurizio 
Volfe Via D. Petriòi. 20 02100 Rieti 
Tel 496638 

Vendo n novissimi VIC 20 più registra 
soie C2N, gioco "VIC Avenger" (car 
irajgel, “Il libro del Commodore VIC 
20“ , cassetta "Tesi Q Imelleituale 1 ' e 
Air Artack“ a L. 300 OQfl- Gian Mario 
Smi Via Luna e Sole .23 -07 100 Sassa- 
ri Tel 079/290073 

Cambio software per C64 su disto u 
cassetta. Possiedo numerosi program- 
mi di gioco ed utility. Inviate fe vostre 
liste ed io mwcró le mie. Annuncio sem 
pre valido Massimiliano Sani Via $. 
Rosa 56048 Volterra (PI) Tel 8S9Q7 

Per C64 vendo beHiswmi programmi di 
ulilily didaMica per studenti datfe me 
dra all'università su argomenti come fi- 
sica, matematica, geometria, chimica, 
ecc Richiedere Irata. Gabriele Rani 
Via C Rosselli, 113 96016 Lemmi (SR) 
Tel. 945079 

Vendo, cambio giochi per CBM 64 si 
LM ira cui Hunck Back. Fole Position. 
Mr Robot. Mner 2049'er, Dig Dug, 
Robot ron, Comen's Tov,er, G«e On 
One, Pi! Stop. James Bond 007, Slinky, 
Arr Pairol, Foresi Alessandro Del Fet 
ro Via Paterni, 77 6JUX) Pesaro Tel. 
0721 67156 
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Pei C64 cambra, compra, vendi Soft 
ware dì quaSsiosi genere mj dbcci Di* 
pongo di tutto- Liw Modena Va Dan 
le, HO 18033 Sanremo (IMI ■ Tel 
018 473079 

Vendo cassetta eoo 13 vsdeogKXhi per 
CSM 64 è L 30 000. conitene ira gli 
altri, hiernatKjnal Sotcet, Radar Rai 
Race, Quix, ecc. Scambio programmi, 
ser-vere o telefonare ore pasti Massi 
mo Marinai - Via S. Ermete, 37? ■ 56100 
Pisa Tel. 050/%265ó 

Se spedile L. 1.000 poi rete ricevere la 
mia lista di programmi per VIC 20 e 
C64. listati o su cassetta Vendo inol- 
tre, per C64, "Dichiarazioni e Fattura- 
zioni EVA M a L 6000 Giovarmi D'Ain 
ferosio Piazza S Erasmo, 16 80142 
Napoli (NAi - Tel. 081/281654 

Compro, yende, cambio software per 
ViC 20. Ceni giochi sono rari « diver- 
tenti- Affrettatevi* Cerco disperala 
mente; ’Wacky Walter*’ e "Arcadi** 1 , 
Vendo "La Principessa e lo Stregone", 
ecc. James Newman Vicolo Copemi 
co, 5 - 20020 Cariano Laghetto Sarorv 
no (MI* Tel. 02/96W300 



Vendo V- Visitare. Sette 1/2, DJg O&g, 
Labirinto tridimensionale e un simpati- 
co “V3C pano" a sole L. 6.500. Svendo 
a &ole L. 27.500 la cartndge “The 
Coutil”, avventure sul tuo VTC Fabio 
Germani Via Minissaie. 3 98013 

Me torna (Contesse) -Tel. 090/21964 

Vendo per VIC 20 i migliori programmi 
su casse tra (Tornado, Arcadia, Poker, 
Cyclon Zap, ecc.) Invio il catalogo dei 
giochi a chi lo richiede (allegando L. 
500) Alberto Frabetti Via Ricciarelli, 
139 • 44 100 Ferrara Tei. 0532/61034 

Vendo E*rended BASIC per CBM 64 
con istruzioni in italiano a L. 40.COO. 
Fletto Nìeddu Via Bianchi, 1 - 07100 
Sassari 


i 1 Vendo VIC 20, registratore, toystick, 
tasseti e “Multi Tron" e " M Jliped* , cu 
t uccia "Cosrmc Crune her" a L 
400.000. In pari regalo cassette con grò 
chi, 9 leziona, un package in LM Tutto 
in ottimo sialo. Telefonale ore pasti 
Fabio Mangione Via Teocrito, 48 
95131 Catana Tel. 095/322463 

Per VIC 20 dispongo di un* vasta na- 
stroteca comprenderne programmi di 
videogiochi, grafica, didattica, geslio 
ria II. giochi di società, per la casa, ecc h 
che vendo a prezzi da sballo. Ricco e 
dettagliato elenco inviando L. 1 000 
(anche in francobolli), oppure elenco 
più cassetta dimetti rat iva inviando L 
10,000 a; Walter Vanzetti Residence 
Paul Via Ivrea, 74 - 10016 Montella Do 
tra (IO) 

Per Commodore 64 acquisto software 
su cassetta, Algebra, utility, ecc. ge 
sTtonaL Inviare lisia con cara! lerislìch* 
e prezzi Massima serietèi. Spedire a: 
Rosario Orsamp - Via Cupa Vicinale 
Vallone, 20 80145 Mano <NA> Tei 
061/ 7553937 

Per C64 vendo, cambio software in LM 
t game s. utility) tutti ongjnalL Prezzi 


Vendo VIC 20 piu registratone, joy- 
stick. manuale "AJk scoperta del VIC 
30 ", 10 cauet tedi wdeogioc h*. cavetti, 
libro e Eruzioni Tutto usato poetatasi- 
mo e m perfetto staio a sotoL 260 000 
Giuseppe Zitaro&a - Via Citinolo. 12 - 
15057 Tortona (AL) Tel, 0131/812342 

Causa passaggi a CBM 64, vendo VIC 
20 più 70 giochi su cassetta a sole L 
200 000 (non trattabili) Il sistema è in 
ottimo stato ed efficientissimo. Pregasi 
telefonare ore pasti. Luca Monticelli 
Via F. 11» Gressan. 4 ■ 20156 Milano Tel. 
02/2551762 

Vendo ottimi programmi m LM e BA- 
SIC a prezzi molto convenienti; a L 
3.500 4.500 cadauno. Vendo inoltre 

cartuccia Visitale Solar System a L, 
15.000- Cerco espansione S 16 Kbyte. 
Ma umiliai ni Alunna - Via Vittorio Ve- 
neto, 2 33089 Villetta djChransfFN) 
Tel. 0434/630170 

Vendo, cambio giochi, utility e word 
processor Dispongo di 300 trio! tra i 
quali; Zaxxon. Jyimpman, Flighi Simu- 
lator. Donkey Kong, Antonino MoHem 
Via Borgognone. 8 22063 Cantò 

(CO) 


Venda per C64 cassette contenenti j 
seguenti giochi in LM Unga e»zk> 
20GC. Trappola. Togo, Ar rack ai: on Fa- 
ttoi. Super Pipeime, Biliardo, Sorger 
Time, per L. 3.000 a gioco In omaggio 
Turbotupe più a scelta Brìscola o T oto- 
calcio Telefonare ore pasti Raffaele 
Iaccanno VraS. Antonio 88064 Orna 

favelle Calabrese <CZ) Tel 
0967 91665 

Vendo VTC 20 più espansione 16 
Kbyte. 1 caftridge. 15 cassette di g» 
chi. 6 manuali sul VIC e su giochi a 
L3DQ0Q0 Andrea MastrómattéO Via 
Resola, 33 71100 Foggia Tel. 

088L27760 

Compro programmi di vano genere 
per C64 (giochi, utility, ecc .) con Turbo 
Tape. Inviare Uste a. Giuliano Presunto 
Via Bngnano 3nf. 6463 84 100 Salerno 

Vendo stampante ptotlvr Commodore 
1520 come nuova a L. 300,000. Tekio 
rare ore paoli, Nicola Salerno Vie 
Aspromonte, 8 -37126 Verona ■ Tel. 
04548692 

Vendo per VEC 20 a prezzi si taccia fis- 
simi software favoloso, sia giochi (in 
LM) che utifHies, G. Battista Gallus 
Via S.Pooto. 3 • 09047 Selargius (CA) 
Tel D 70/842 795 

Vendo Consolle Atan VCS 2600, solo 
tre mesi di vita, più 7 giochi tipo Mouse 
Trep, ET., Pala volo. Demon Attack, 
ecc II tutto completo di garanzia, asole 
L. 600 000 tt at : ahi! i Telefonare ore pa 
sii Flavio Baldi Via Dei Nacei, 1 
53045 Montepulciano (£t) Tel 7 57926 

Cerco colleglli sessanlaquattróli per 
scambiane o vendere programmi Ne 
posseggo di magniftcì. tutti m LM Vi- 
ospettd Se mete o telefonate ore pa*ti 
Antonio Vitale Via Mie baie Titone, 6) 
90129 Palermo Td 42^73 


Cambio sottware per CBM 64 nella so- 
la zona di Cataria Arwiundo sempre 
valido. Fabio Belassai Va F.l Bande 
ra, 1 3 95100 Catana Tel, 095/5 15353 

Vendo VIC 20 4 mesi di vite più cartrid- 
ge e programmi: su nastro Prezzo ec 
ce zona le, solo L 100 000 Telefonare 
ore pasti F abo kaldì Via Valle Miglio 
retti, 4 10025 Pino Torinese ITO} Td 
840766 

Cambio programmi per C64. Mandate 
mi le vostre hsle di programmi ed io vi 
spedirò le mie. Ciao 1 Serve te a: Fran 
cesco Paganelli Via Ri mini, 2 - 47038 
Sant 'Ai congelo dL Romagna (FOi 

Vendo 10 programmi per CBM 64 a L, 
25.000, spese di spedizione comprese, 
tra cui; Burger Time, Grand Master, 
Fort Apocalyp&e. King Kong, Cudofy 
Cuburt, ecc. Scrivere a FrancescoFa- 
gandK ■ Via Rimi™, 2 47038 Sant’Ar- 
cangelo di Romagna (FO) 

Vendo per CBM 64 programmi (gestio- 
nali videogame* ■ utilfies • ecc.). Ri- 
chiedere amba lista descrittiva a: Lau- 
ro Michefotti Via Botatoli ■ 51017 Pescia 
(PT> 

Vendo VIC 20 in ottime condizioni, 
completo di garanzia per 9 mesi, con; 
manuale in i (aliano, joystick, SO pro- 
grammi {Frog, Pac Man, Crazy Kong, 
alcune utility, eoe,); in imballo erìgi naie 
a L 300 .000 tran ab* Carlo Sechi Via 
Cotonia Romana, 4 - 07046 Porto Tor- 
res (SS) TeL 501394 

Attenzione: venda, per comprare kbn, 
VIC 20 più espansione 32 Kbyte «te 
sanabile. 20 riviste, 73 videogiochr su 
nastro, 4 giochi su caitridge 8 tulio a 
sole L. 500000. Teletonate da De 17 00 
tri fui Vi prego, ai u ta remi Giorgio An- 
dreoteiti Vta Andrea Dorìo, 17 - 21013 
Gallarate (VA] ■ Td, 797740 


buoni. Scrivere o telefonare a Crìsha- 
no Garibaldi Vìcolo S. Lazzaro I9Q3S 
Sanremo (IM) Tei, 8^64 

Vendo- per CBM 64 Drogiamrra come 
Zaxxon, Skirace. Ritstop, ecc, Sono 
mteressoito a scambiare un gioco per i: 
Totocalcio- Giubo Maraz^na Via (V 
Novembre 36 20070 Massalenso(M II 
Tel- 02 78950 

Serve un programma o una procedura 
realizsata su Commodore 64 o OltvetTi 
M20. da un programmatore p: ole ss io 
itista? AHore. sob per la Lombardia 
Silvestro Gabba Vìa Riccardo Rossi, 
54,/j 27020 Domo |PV) Tel 

0382/848085 

Véndo VIC 20 più registratore. 2 car 
tucce Commodore, manuale in il alia- 
no, libro "Alla scoperta del VIC 20", 2 
cassette piene di programmi a sole L. 
335.000. Alessandro Marras Via A. 
Vivaldi, fi 40050 Monteveglio (BOI 
Tel. <551/837448 

Vendo per VIC 20 40 videogame* alto 
strepitoso prezzo di L, 5.000; per lista 
giochi telefonare alle ore 20 o scrìvere. 
Offerta sempre valida. Massimo Ga 
gliardi Viale Cannadont. 70 ■ 62100 
Macerata Tel. 0733/30901 

Vendo per VIC 20 4 cartucce. Gerì, 
Omega Race, JupUér Lander, Snake 
Byte a L 25 000 l'imo più L 2 000 per 
spese d spedizione. Fabio Ferran Via 
Araldi, 5 29100 Piatene Tel. 

0623,753283 

Vendo moltrswni proyamn» di s-ochi, 
utilità e didattica per CBM 64, su disco 
o listati, a buon prezzo Massrma serie- 
tà. Anrnmcto sempre valido Telefona 
re ore pasti a sciale per richiedere la 
lista OkJerìco Caviglia Va D Carbo- 
ne. 4 15060 Vil^u ernia (AL) IH. 

0131/8315 


Vendo espansione 16 Kbyte RAM per 
VIC 20 a L 100 000 non trattata ih. Tele 
fonare ore pasti- Mano Lombardi ■ Via 
Palma nova. 209 20132 Mikno Tel. 
2567039 

Vendo VIC 20. fcladà cavetti, espan- 
sione 8 Kbyte, espansione 3 Kbyte su- 
per espander e lar tcssime cassette a 
sole L. 300.000 una vera offerta, lutto 
ai olirne condizioni Telefonare «sto se 
veramente interessati, GiampaofoCel- 
lirn Via Paradso, 41 66100 Chb6 
Tel 0871/61 142 

Vendo software per VIC 20, Videoga 
me* e utility anche in LM Magnifici 
victeogames per VIC espanso (fi- 16 
Kbyte). Richiedere lista a. Stefano Ron 
coni - Via A, Costa L 2 ■ 20026 Novale 
Milanese IMO TeJ 3547 1443 

Vendo in blocco- VIC 20 più trasforma- 
igre, cavi col legamento TV, registrato- 
re dedicato Commodore, joystick 
Pomi master, istruzioni originali, 90 gio- 
chi su cassetta, 3 giochi su cariridge e 
decine di listasi. Tutto perfettamente 
funzionante a L 400 000. Vero affare. 
Stefano Zibatdi • Via Plana, 28-20155 
Milano Tel. 02/3270318 

Clamorosi Vendo per VIC 20 in 
espanso una cassetta contenerne 5 gio- 
chi da scegliere tra i seguenti : Pac Man , 
Crazy Kong, Defender, Meteora, La 
ma, Gndrunner, ecc. Il rutto a sole L 
15 000 Umberto Benefli Via XX Set 
fe mtare. 180 54031 Carrara Aven za 

(MS) Tel 0585/57145 

Vendo e cambio programrn per VIC 
20 (prezzi sono bassissimi. Lotteria è 
«mpre valda. Aspetto lettere o (é- le fo- 
nate Vi prego di darmi sempre il vostro 
telefono Marco ZandonadL Via G. 
Caldei, 11 20052 Monza (MI) Tel. 

039 835920 
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Il C A.F. è un'istituzione privata che opera in 
collaborazione con i Servizi Sociali, con i 
supporli messi gratuitamente a disposizione 
dal Comune di Milano, e con i contributi 
finanziali volontari dei cittadini. 
Contribuisci anche tu, utilizzando il 
tagliando. È un gesto necessario, per 
ì bambini maltrattati, per te che 
vuoi fare qualcosa di concreto 
contro la violenza. 


SARÀ UN U 
VIOLENTO 

[FACCIAMO 


C*A,F* 


CENTRO DI AIUTO 
AL BAMBINO MALTRATTATO 
E ALLA FAMIGLIA IN CRISI 


Dietro un bambino * 

rè sempre J 

ina famiglia in crisi. • 

È impossibile * 

stabilire con * 

esattezza quanti J 

bambini in Italia * 

subiscono violenze, J 

Tanti, purtroppo. * 

Ma una cosa è certa : * 

la violenza che oggi • 

un bambino subisce * 

e impara, da grande 
la ritorcerà contro la società. 

Bisogna intervenire, e subito: agendo sulle cause. 
Intervenendo sulla crisi familiare che è 
sempre alla base dei maltrattamenti 
a un bambino. 


Segnaliamo 
ai Servizi Sociali 
del Territorio i casi 
di maltrattamento. 

La prima cosa da 
fare: segnalare ogni 
caso di maltratta- 
mento di cui siamo a 
conoscenza o di cui 
abbiamo il fondato 
sospetto. 

Telefonate ai Servizi 
Sociali del Territorio 
dal lunedi al venerdì, 
dalle ore 9 alle ore 12 (troverete i numeri di 
telefono su Tuttocitià), oppure al Tribunale per i 
Minorenni (chiedendo del giudice di turno) dal 
lunedi al sabato dalle ore 9 alle ore 13, telefono 
4988001/2/3: oppure al C. A.F. , a questi numeri di 
telefono 02/8265051/2, che rispondono 24 ore 
su 24, 7 giorni su 7, 


‘‘Vorrei contribuire anch'io”. 

Per sostenere il Cài, vi inviò 

Ut 10.000 Ut 25.000 GL som 

U foo.ooo u t. soo.ooo O l. 

□ Tramite assegno bancario intestalo C A.F. & 

Via V. £ Orlando 15. 20142 Milano* che vi invio , * 

urtilo a questo tagliando. 

P Trattine versamento sut CC P rf 22349203 intestato C. A.F. 

Via V: E Orlando 1 5, 20142 Milano. 

Nomee Cognome...* 

Indirizzo ... ............ ............ M 

CAP .......Xfotf 

Provincia 

Ai tendo ricevuta r tesserino di Sosierunjfr Jet CAP 


Spazio gratuito 
offerto da J.soft 


Sosteniamo il C.A.F. 


11 C A.F, è il primo Centro di Aiuto al Bambino 
Maltrattato e alla Famiglia in Crisi, sono in 
Italia con k> scopo dì intervenire nei casi di 
maltrattamento. 

Oggi, nella sua nuova sede più grande e attrez- 
zata, accoglie provvisoriamente i bambini mal- 
trattati, contemporaneamente svolge un'azione 
terapeutica sulla famiglia per ripristinare Tequili- 
brio e reintegrare il bambino nel suo ambiente. 



Dalla grande 
edicola 
Jackson 

Tutto sull’ hobby 
e Home computer 




STRUMENTI MUSICALI 

In questo numero: 


COMPUTER 

In questo numero: 

Spectravideo 
728 MSX 
Ghostbuster 
per CBM 64 
Un adventure 
per if QL 
Match day 
per Spectrum 

C 16 contro VIC 20 


VIDEOGIOCHI In questo 


numero: 


Speciale equalizzatori 
Gibson Explorer 
Los Angeles guitar show 
Novità Francoforte ’85 


Las Vegas ’85 
Designerà pencil 
15 giochi-novità 
I Video game fai-da-te 



Strumenti Musicali/Video Giochi/Home Computer 

sono pubblicazioni firmate: 

GRUPPO EDITORIALE JACKSON 

via Rosellini, 12-20124 Milano 




